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SEQ 1 


-REM % 


IDENTIFICATION 


PRODUCT CODE: AC=A829C-MC 

PRODUCT NAME: CZDXJCO DX11-B OFF-LINE ADDRESSING TEST 
DATE: MARCH 1982 

MAINTAINER: DIAGNOSTIC PROGRAMMING 

AUTHOR: R. MISNER 


ta a te sd 4 4 4 2 


BIKAR LS VOVRARAN LS SaVAAR WN =F oc@vounwn— 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 


eS 


THE SOFTWARE DESCRIBED IN Ly ey IS FURNISHED TO THE 
PURCHASER UNDER A LICENSE FOR USE ON A SIN NGLE COMPUTER SYSTEM 
AND — BE COPIED (WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) 
ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED 
IN URI TING BY DIGITAL. 


39 

40 pas ne EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 

a] FOR THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT 

*§ THAT IS NOT SUPPLIED BY DIGITAL. 

Pe COPYRIGHT (C) 1977,1982 BY DIGITAL EQUIPMENT CORPORATION 
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1.1 
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1.3 
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PROGRAM HISTORY 


04-DEC-81 V. GUARINO 


INSERTED CODE TO_FORCE_NO MORE THAN 124KW MEMORY ALLOCATION 
IN THE MEMORY SIZE (SIZE:) SUBROUTINE. 


GENERAL PROGRAM INFORMATION 
ABSTRACT 


THIS PROGRAM IS A SUPPLEMENT TO oY AND DZDXF DX11-8 
MAINTENANCE MODE DIAGNOSTICS AND IS A FUNCTIONAL CHECK THE 
ABILITY OF THE DX TO ACCESS ALL AREAS OF MEMORY USING os aan 
SOURCES FOR THE NPR DATA “, , rien IS ASSUMED THAT DZDX 

DZDXF HAVE ALREADY BEEN RUN. THE THREE NPR ADDRESS SouRces 
RESULT FROM DATA WRITES TO MEMORY, STATUS POINTER WORD (SPW) 
FETCHES, AND DEVICE STATUS TABLE (DST) FETCHES. 

DIAGNOSIS IS BASED ON THE ASSUMPTION THAT THE CPU CAN ACCESS 

iF hop CORRECTLY WHILE THE DX*S ADDRESSING CAPABILITY 


SUSPECT. 
ERROR MESSAGES DESCRIBE THE FAILING ADDRESS SOURCE AND THE 
EXPECTED LOCATION OF THE DX ACCESS. THE ACTUAL DX ADDRESS 
4 THE ACCESS CANNOT BE DETERM 
THE OPERATOR INTERFACE IS DESIGNED TO BE COMPATIBLE WITH 
DZDXA AND DZDXF. 


SYSTEM REQUIREMENTS 


THIS PROGRAM REQUIRES ANY tay pg a WITH AT LEAST 
8K OF ag BUT NOT MORE T 128k; THE DX11-B AND A CONSOLE 
ee we HE PROGRAM WILL RUN UNDER XXDP,ACT, SLIDE, AND 
STAND ALONE. THIS PROGRAM HAS NOT BEEN TESTED ON CPU'S WITHOUT 
a Sul TCH REGISTER. 


RELATED DOCUMENTS AND STANDARDS 


PROGRAM IS ASSEMBLED USING SYSMAC MD-11-DZQAC-C3 AND 
CONFORMS TO THE ACT INTERFACE AUTOCAT~11~QZAUB~B8-D 


DIAGNOSTIC HIERARCHY PREREQUSITES 


IT IS ASSUMED THAT DZDXA,DZDXF, AND APPROPRIATE MEMORY 
DIAGNOSTICS ARE RUN ERROR FREE IN ORDER FOR ne ERROR 
MESSAGES IN THIS DIAGNOSTIC TO BE MEANINGFUL 
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) 
oO 
ta 


D1 LES ae 
| 
| 
| 
| 


| 
| 104 1.5 ASSUMPTIONS 
107 THIS PROGRAM ASSUMES THAT THE CPU, UNIBUS ADDRESSING, 
108 AND PORTIONS OF THE DX11-8 TESTED BY DZDXA AND DZDXF ARE 
109 OPERATING CORRECTLY IN ORDER FOR THE ERROR MESSAGES 10 BE 
110 MEANINGFUL. 
3 
113 2.0 OPERATING INSTRUCTIONS 
115 
116 2.1 LOADING AND STARTING | 
118 
119 USE STANDARD LOADING PROCEDURES FOR PDP11 UNDER THE 
120 ABSOLUTE LOADER, XXDP, SLIDE, OR ACT. START AT ADDRESS 200. 
121 THE PROGRAM WILL PRINT OUT THE MAINDEC NUMBER AND TITLE AN 
122 A PROMPTING MESSAGE AS FOLLOWS: 
123 “TYPE: <D>,FOR DEFAULT PARAMETERS 
124 <P>; FOR PREVIOUS PARAMETERS 
125 <S>.FOR SELECT PARAMETERS 
126 <N>.FOR START WITH THIS TEST NO. 
128 D.P.S,N?" 
130 THE OPERATOR MUST RESPOND WITH AD OR S IF THIS IS THE 
131 FIRST START SINCE THE PROGRAM HAS BEEN LOADED INTO MEMORY. IF. 
132 IN RESPONSE TO THIS NE SSAGE THE OPERATOR TYPES AN S<CR> THE 
133 FOLLOWING DIAGLOG COULD T AKE P PLACE: 
134 “TEST NUMBER: 1<C 
135 BASE ADDRESS: 176200ccr> 
136 VECTOR ADDRESS: 300<CR> 
137 DX PRIORITY LEVEL: accns ! 
139 NOTE: THE ABOVE RESPONSES ARE THE DEFAULT PARAMETERS 
140 AND ARE EQUIVALENT TO TYPING A D<CR> IN RESPONSE TO D.P,S.N? 
141 A <CR> RESPONSE FOR A PARTICULAR ENTRY WILL SELECT THE DEFAULT 
142 VALUE. A CONTROL C at ANY TIME WILL TAKE THE PROGRAM BACK TO THE 
143 PARAMETER ENTRY SECTION. RESPONSE TO THE CONTROL C MAY BE SLOW 
146 IF THE PROGRAM IS IN A PARTICULARLY LONG TEST. ALL PARAMETERS ARE 
145 CHECKED TO SEE If THEY ARE IN A LOGICAL RANGE. IF NOT, THE ENTRY 
146 IS REQUESTED AGAIN. 
147 
148 
| 


“TEST NUMBER:** 

THE PROGRAM IS ASKING FOR THE STARTING TEST NUMBER. 1 

THRU 4 ARE VALID wk pentit THIS IS THE STARTING TEST 

NUMBER. TO LOOP ON A TICULAR TEST TYPE THE TEST NUMBER IN 
RESPONSE TO THIS MESSAGE AND SET SWITCH 14 ON THE CONSOLE. 


ts YS 
MAMA AAU & 
ONAOUSWH—O”O 


| 
| 
| 
“BASE ADDRESS:"* 
THIS IS A REQUEST FOR THE BASE ADDRESS OF THE DX IN THE 
J 
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159 UNIBUS ADDRESS SPACE. IT IS ALSO THE ADDRESS OF THE DXDS. ALL 
160 oie rats tntaee AND STATUS REGISTER ADDRESSES ARE GENERATED 


SEQ 4 


—_ 
o 
-_ 


oo 
wr 


“VECTOR ADDRESS:*' 
THIS IS A REQUEST FOR THE DX11-8 INTERRUPT VECTOR 
ADDRESS. 

"DX PRIORITY LEVEL" 
THIS IS A REQUEST FOR THE DX°S INTERRUPT PRIORITY LEVEL. 
IT IS NOT USED BY THIS PARTICULAR PROGRAM. 

“SET SWITCHES:*° 
THIS IS A_REMINDER TO SET THE CONSOLE SWITCHES BEFORE 


STARTING THE PROGRAM. AFTER SETTING SWITCHES, RESPOND WITH A 
<CR>. CONSOLE SWITCHES HAVE THE FOLLOWING MEANING: 


SW<15> HALT ON ERROR 

SW<14> LOOP ON ERROR OR TEST 

SW<13> pest ERROR PRINTOUT 

SW<12> PRINT ONLY SHORT ERROR REPORT 
SW<11> INHIBIT ITERATIONS 

SW<10> INHIBIT MEMORY MGT USE 


TESTING WILL _COMMENCE AS SOON AS A <CR> IS GiVEN 
IN RESPONSE TO THE ‘SET SWITCHES:*' MESSAGE. 


THIS PROGRAM AUTO SIZES THE MEMORY. THE CONTROL UNIT 

Han ot AND DEVICES PER CONTROL UNIT ARE ALSO AUTO SIZED. 
THIS PARTICULAR PROGRAM DOES NOT NEED THE “LEGAL COMMANDS*' 

FACILITY USED BY OTHER DX DIAGNOSTICS. 


mt es ss a 4 ws a a 4) a as 4 9 4 a 9 4 
KIRAN LS SEVEALAT LS ISVS ARAVASSSIEAF 


2.2 SPECIAL ENVIRONMENTS 


THIS PROGRAM WILL RUN IN UNATTENDED MODE UNDER ACT. 


2.3 PROGRAM OPTIONS 


SSroxesses 


207 ace SECTION 2.1 FOR PARAMETER SELECTION AND OPTIONS. 

208 NOTE THAT at CONSOLE SWITCH CHANGES oon eeean te IMMEDIATELY 
209 EXCEPT SwW<10> “INHIBIT MEMORY MANAGEMENT USES"’. DER TO 
210 CHANGE THE MEANING OF SW<10> SET THE SUITCH THEN RESTART THE 
$i} PROGRAM VIA CONTROL C OR START AT ADDRESS 200. 

318 

274 2.4 EXECUTION TIMES 
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‘ | 
216 | 
217 SINGLE PASS EXECUTION TIME IS VARIABLE DEPENDING ON 
218 MEMORY SIZE. A PDP-11/45 WITH 65K WORDS OF MEMORY REQUIRES 
219 30 SECONDS. EACH ROUTINE HAS A SINGLE ITERATION REGARDLESS 
320 OF MODE. END PASS IS SIGNALED AFTER ALL TESTS HAVE BEEN RUN | 
222 
2 
22% 3.0 ERROR INFORMATION 
$52 womewewoeennneone 
ssc THE GENERAL ERROR REPORT FORMAT IS AS FOLLOWS 
229 LINE 1 
ts eeeccs 
$36 ERROR PC: XXXXXX ERROR NO. YYYYY 
234 THIS GIVES THE PROGRAM COUNTER (XXXXXX) WHERE THE ERROR 
235 WAS DETECTED AND A UNIQUE ERROR NUMBER OR IDENTIFIER (YYYYYY) 
237 LINE 2 
$35 ecoeee 
240 THIS LINE GIVES A UNIQUE ERROR MESSAGE FOR EACH ERROR 
241 TYPE EXPLAINING THE SUSPECTED CAUSE OF THE FAILURE. THIS IS 
24 THE LAST LINE OF THE MESSAGE IF SWITCH 12 1 
244 LINE 3 
te ee Oe ee. 
246 
see TEST NO. XXXXXX 
249 THIS IDENTIFIES THE TEST NUMBER (XXXXXX = 1-4) WHERE THE 
real FAILURE WAS DETECTED. 
252 LINE 4 
oe See) oe eee a # er 1 i diets 
254 
255 VIRT ADDR OF BUFFER BASE: XXXXXX 
257 THIS GIVES THE VIRTUAL ADDRESS OF THE LOWEST LOCATION 
258 IN THE BUFFER WHICH THE DX WAS ACCESSING AT THE TIME OF ERROR. 
260 LINE 5 
261 epeeea 
263 
ser PHY ADDR OF BUFFER: XXXXXX 
265 THIS GIVES THE PHYSICAL ADDRESS OF THE BUFFER BASE. ONLY 
OUTPUT IF MEMORY MANAGEMENT IS IN USE 
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71 EA BITS IN OCT: XXXXXX | 
| $78 THE LOW TO BITS OF XXXXXX ARE THE EXTENDED ADDRESS BITS 
7%, USED IN ACCESSING THE FAILING MEMORY LOCATION. ONLY OUTPUT IF | 
275 MEMORY MANAGEMENT IN USE. | 
577 LINE 7 | 
280 VIRT ADDR OF ACCESS ERROR: XXXXXX 
58 THIS MESSAGE IS ONLY OUTPUT FOR TEST 2. IT GIVES THE 
283 EXPECTED WORD LOCATION OF THE FAILING ACCESS. 
sos ACTUAL: XXXXX EXPECTED: XXXXXX 
588 IN SOME TESTS, THIS GIVES THE ACTUAL AND EXPECTED BYTE 


289 OF DATA. THIS WILL GIVE INSIGHT INTO FAILING ADDRESSES AS THERE 
290 Hey F septhattatie BETWEEN THIS DATA AND THE LOCATION OF THE 


291 

292 

293 NOTE: AT THE END OF THE FIRST PASS EXECUTION THE FOLLOWING 
Soe MESSAGE IS PRINTED: 

296 1ST IBM DEV RCGNZD. OCTAL: XXXXXX 

344 SIZE OF 1ST DEV GROUP: YYYYYY 

299 THIS IS NOT AN ERROR MESSAGE BUT IS AN INDICATION OF 
300 HOW THE JUMPERS ARE SET UP ON MODULE A20. THIS INFOR- 
301 MATION IS PROVIDED ONLY AS A CONVENIENCE FOR THE 

302 OPERATOR. SEE MAINTENANCE MANUAL EK-DX11B-MM-002 
303 PARA. 2.4.2 FOR MORE INFORMATION. 


| 

| 

| 
285 LINE 7=8 ALTERNATE 
304 

305 4.0 PROGRAM ORGANIZATION 


a Se ro ea i | 
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4.1 BLOCK DIAGRAM 


! TEST : 
! CONTROL ! 


Sey toe eens 
1.0 ! 2.0 ; 


' 
! GET ! INTERRUPT ! 
i PARAMETERS ! i HANDLERS ! : 
> Se om we rae apepay (aD aD Om OP Mo ae ome ES OR Sp oD ED ae i 
© ee OO SSS OSS BSS Sa OS SSS wee GS wee ow SE ' 

' 


 .¥ 1.2 ! 1.3! 

INPUT Ler we ! CHECK ' 

| PARAMETERS! | MEMORY | ' PARAMETERS ! 

Recalled tate By pe sec Sy Se me eS oe Se om ee a FE Mme 
' ! ote eh Se wo SS SS awe aers nea enea a ean awe f 

1.1.1 } 1.3.1! | 

! INPUT ! ! WRITE* ! 

! FROM ! ' TTY ' 


* MOST MODULES CALL THIS MODULE 


. : ' : 
3.0.1 ! 3.0.2 ! 3.0.3 ! 3.0.4 ! 


! Test 1! rTest2! | ‘Test 3! ! TEST 4! 


: ; : 
: : : 
3.1 ! 3.2 ! 3.3 ! 

! TEST ! | BASE ADDRESS ! ! ERROR ; 

! INITIALIZATION! ! GENERATOR ! ! REPORTING ! 


Pee DxX11-8 ney iy ta TEST 
CZOxJC.P11 82 16:26 
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4.2 TEST DESCRIPTIONS 


4.2.1 TST 1 


posi 
| 
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CZOxJC.P11 
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MODULE 3.0.1 FAST NPR DATA TEST 


7 DATA INTO ee WITH LARGE BY Hy COUNTS. THE DXBA_IS names 
FOR ITS ABILITY TO COUNT AND ALL CARRIES IN THE COUNTER ARE 
EXERCISED. THE DATA_TRANSFERS pg ALL AVAILABLE MEMORY EXCEPT 
yin Ay PROGRAM IS LOCATED, AND THE AREA WHICH MAY BE OCCUPIED BY 


4.2.2 TST 2 


MODULE 3.0.2 NPR DATA ADDR UNIQUENESS TEST 


THIS MODULE ad THE DX11°S ABILITY TO UNIQUELY ADDRESS EACH 
WORD OF ME THIS rc IS Oe toon tena BYWRITING A BACKGROUND 
IN A BLOCK OF "WEMORY. A WORD IS THEN TRANSFE@RED FROM THE DX 
TO THE MEMORY BLOCK. THE CPU CHECKS THAT THE BORD ARRIVES AT 
i's EXPECTED ok nas teak IF YES THE WORD IS RESTORED TO MATCH 

K THE NEXT WORD IS TESTED. THIS IS REPEATED 
FOR EACH WORD ORD IN TH THE BLOCK AND FOR EACH BLOCK IN MEMORY. 


NOTE: THIS TEST MAY NOT DETECT ADDRESSING PROBLEMS 
WHICH ARE COMMON TO THE CPU AND DX11. I.E. UNIBUS ADDRESSING 
PROBLEMS. 

4.2.3 TST 3 


MODULE 3.0.3 SPW ADDRESSING TEST 


THIS MODULE a | i THE ABILITY OF THE DX TO ACCESS THE STATUS 
POINTER WORD (SPW) TABLE IN ALL POSSIBLE LOCATIONS IN MEMORY. 
BASE ADDRESS FOR THE SPW IS GENERAT 

THIS SPW TABLE IS FILLED WITH A PATTERN OF OOODEV 
ay IS EQUAL TO THE DISPLACEMENT OF THE WORD FROM THE 
SPW BASE =000000 
SPW BASE +1 =000001 


SPW BASE+255=000377 


GIVING A TOTAL of 256 WORDS FOR THE SPW TABLE WITH IMMEDIATE 
STATUS EQUAL TO THE DEVICE 

AN ISS SEQUENCE IS INITIATED th A DEVICE # OF 0. 

ADRECC AND ADRECD DON'T COME ON FOR THIS DEV. NO TESTING IS DONE, 
THE DEY # IS INCREMENTED, AND ISS IS DONE A 
IF ADRECC AND ADRECD COME ON IT MEANS THE DX JUMPERS ARE CUT TO 
RESPOND fon THIS DEV NUMBER. THE ISS SEQUENCE IS THEN CONTINUED 
UNITL THE STATUS IS IN THE DXOS REG. THIS STATUS IS THEN 
CHECKED AND SHOULD BE EQUAL TO THE DEV # IF THE SPW WAS 
ACCESSED CORRECTLY. 


THIS PROCEDURE IS REPEATED FOR ALL 256 POSSIBLE DEVICES AT 
ALL POSSIBLE LOCATIONS FOR THE SPW. 
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000001 
160000 


177774 
177772 


kK 1 
SEQ 10 | 
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THE FIRST RECOGNIZED DEV NO. AND COUNT OF THE FIRST 
GROUP OF ad DEVICES IS SAVED AND PRINTED AT END 


PASS 'IME. IF DEV IS RECOGNIZED AND ERROR MESSAGE 
IS OUTPUT AT THE END OF THE TEST. 
4.2.4 TST 4 


MODULE 3.0.4 DEVICE STATUS TABLE (DST) ACCESS TEST 


THIS TEST CHECKS THE ABILITY TO ACCESS ALL BYTES OF THE 
DST_IN ALL AREAS OF MEMORY. THE OBJ Se IS TO CHECK LOADING 
OF THE DXBA FROM THE SPW DST BASE, AND COMMAND (CUCR) 


A VALID I6M ie FROM TST3 IS CHECKED. THEN A BASE ADDR 
IS GENERATED FOR THE DST. EACH BYTE OF THE DST IS THEN LOADED 
WITH ITS OFFSET FROM THE DST BASE. 


A SPW ENTRY FOR THE VALID IBM DEVICE IS GENERATED WITH AP- 
PROPRIATE DST BASE AND ZERO IMMEDIATE STATUS TO ASSURE A DST 
ACCESS. AN ISS SEQUENCE IS DONE WITH THE VALID DEV AND 

EVERY POSSIBLE I8M COMMAND THEREBY ACCESSING EVERY LOCATION 
IN THE DST. AFTER THE ISS, THE STATUS WILL EQUA! THE COMMMAND 
” AND ERROR IS FLAGGED. 


eNLIST CND,MC,TOC 
IST ME 


EO a ey 


-ENABL ABS,AMA 
TITLE MD-11-CZDXJ=C DX11-B ADDRESSING TEST 
2*COPYRIGHT (C) -1977- 
: DIGITAL EQUIPMENT CORP. 

*MAYNARD, MASS. 01754 


{sPROGRAM BY R. MISNER 
THIS PROGRAM WAS ASSEMBLED USING THE PDP~11 MAINDEC SYSMAC 
j PACKAGE (MAINDEC=11-DZQAC-C5), JAN, 1981. 
étw=1 
$SWR=160000 ;HALT ON ERROR, LOOP ON TEST, INHIBIT ERROR TYPOUT 
“SBTTL BASIC DEFINITIONS 
s*INITIAL ADDRESS OF THE STACK POINTER *#* 1100 ee 
STACK= 1100 
-EQUIV EMT, ERROR Z:BASIC DEFINITION OF ERROR CALL 
-EQUIV 10T. SCOPE [:BASIC DEFINITION OF SCOPE CALL 


jal SCELA Ane OUs DEF INITIONS 


7:CODE F OR HORIZONTAL TAB 
LF= 1 ::CODE FOR FE 
CR= 1 33CODE FOR CARRIAGE RETURN 
CRLF= 200 :CODE FOR CARRIAGE RETURN-L INE FEED 
PS= 177776 TIPROCESSOR STATUS WOR 
-EQUIV PS.PSW 
STKLMT= 177774 zzSTACK LIMIT REGISTER 
PIRQ= 177772 [PROGRAM INTERRUPT REQUEST REGISTER 


BPE FE NI Ay Rare ean re 


| Ve 
SEQ 11 | 
MD=11=CZDXJ=C 0Xx11-8 ADDRESSING TEST | MACY11 30A(1052) O7=JUN-82 16:29 PAGE 12 | 
CZDKJC.P11 — O7=JUN-82 16:26 BASIC DEFINITIONS 
| 481 177570 DSWR= 177570 Z;HARDWARE SWITCH REGISTER | 
482 177570 DDISP= 177570 Z:HARDWARE DISPLAY REGISTER | 
484 :*GENERAL PURPOSE REGISTER DEFINITIONS | 
485 000000 RO= 20 3:GENERAL REGISTER | 
486 000001 Ri= 1 Z:GENERAL REGISTER 
487 000002 R2= z Z:GENERAL REGISTER 
488 000003 R3= % 3:GENERAL REGISTER 
489 000004 R4= 24 Z:GENERAL REGISTE 
490 000005 RS= <5 Z:GENERAL REGISTER 
491 000006 R6= %6 7:GENERAL REGISTE 
492 000007 R7= 27 Z:GENERAL REGISTER 
493 000006 SP= 16 Z:STACK POI 
494 000007 PC= <7 OGRAM COUN 
4% *PRIORITY LEVEL DEFINITIONS 
497 ::;PRIORITY LEVEL 0 
498 00004 PR1= ::PRIORITY LEVEL 1 
499 0001 PR2= 100 ::PRIORITY LEVEL : 
500 000140 PR3=  —-: 140 [PRIORITY LEVEL 
501 000200 PR4= 2 *:PRIORITY LEVEL & 
502 000240 PRS= 240 PRIORITY LEVEL 5 
503 000300 PR6= 300 s:PRIORITY LEVEL 6 
504 000340 PR7= 340 ::PRIORITY LEVEL 7 
506 :*"SWITCH REGISTER’ SWITCH DEFINITIONS 
507 100000 $w15= 100000 
508 040000 SW14= 40000 
509 020000 SW13= 20000 
510 010000 Swi2= 10000 
511 000 SWil= 40 
512 002000 Sw10= 2000 
513 001000 swo9= 1000 
514 000400 sw0o8= 400 
515 000200 sw07= 200 
516 060100 SW06= 100 
517 000040 Swos> 40 
518 000020 sw04= 20 
519 000010 sw03= 10 
520 000004 SwO2= 4 
521 000002 Sw0l= 2 
522 000001 swod= 1 
523 -EQUIV SwW09,SwW9 
524 -EQUIV SWO8.SW8 
525 -EQUIV SWO7.SW7 
526 -EQUIV SwW06, 
527 -EQUIV $WOS.SwW5 
528 -EQUIV $W04.SW4 | 
529 -EQUIV SWO03.SW3 
530 sEQUIV SWO02.SW2 
531 -EQUIV SWO1.SW1 
332 -EQUIV $w00.SWO 
534 s*DATA BIT DEFINITIONS (BITOO TO BIT15) 
535 100000 BIT15= 100000 
536 040000 BIT14= 40000 
| 
hE Pie ale ES ane a Na baler mali LAN, shh i Magali AA om a Tan Ale a Dee eth ee Sa 
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BASIC DEFINITIONS 


-EQUIV B1T00,B1T0 


;*BASIC *'CPU'* TRAP VECTOR ADDRESSES 


ERRVEC= 4 


PVEC= 64 
PIROVEC=960 


; PROGRAM 
“SBTTL MEMORY MANAGEMENT’ DEF INI TIONS 


2*KT11 VECTOR ADDRESS 


sTIME OUT AND OTHER ERRORS 
:ERESERVED AND ILLEGAL INSTRUCTIONS 


3 TRACE TRAP 
: SBREAKPOINT TRAP (BPT) 

seen ne TRAP (IOT) **SCOPE** 
: SEMULATOR TRAP (EMT) **ERROR** 
33. * TRAP 


TTY KEYBOARD VECTOR 
eeTTy PRINTER VECT on 
INTERRUPT REQUEST VECTOR 


MMVEC= 250 

2*KT11 STATUS REGISTER ADDRESSES 
SRO= 177572 

SR1= 177574 

SR2= 177576 

SR3= 172516 


3*KERNEL ‘‘I** PAGE DESCRIPTOR REGISTERS 


KIPDRO= 172300 
KIPDRi= 173300 
KIPDR2= 172304 
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595 
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599 
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601 
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603 
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SEeEae 


AAARAAAAAAO 
Ok et kd ed ed ed od 
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Shiththie 


625 


000174 
000176 


000200 


000046 
000052 
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001164 
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MEMORY MANAGEMENT DEFINITIONS 


KIPDR3= 172306 


KIPDR7= 17, 316 
s*KERNEL "*I'* PAGE ADDRESS REGISTERS 


00 
.SBTTL TRAP CATCHER 


=0 
*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A“ -+2,HALT’® 
*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
purer ees 0 CONTAINS 0 10. CATCH IMPROPERLY LOADED VECTORS 


DISPREG: SWORD 0 Ht + he | DISPLAY REGISTER 
SWREG: .WORD 0 ssSOFTWARE SWITCH REGISTER 
~SBTTL STARTING oleate 


JMP T ;;JUMP TO STARTING ADDRESS OF PROGRAM 
-SBTTL AcT11 wooKs 


FRRAAAARAARAAEARAEAREREREREEAEEREAARAEEREEREREREREEERREEREREREREREE 


Hooks — BY ACT11 


1 sSAVE PC 

2 

SENDAD 331)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
2 

WORD 40000 332)SET +e 32 TO 40000 

-=SSVPC ze RESTORE P 

-=1000 


SEQ 13 


——— 
Se ee 
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SEQ 14 


44 ~SBTTL COMMON TAGS 

641 PILI iii riiiitiiiiiiiitiititi + 
64 SATHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 

bth 3*USED IN THE PROGRAM. 

645 001100 -=1100 

646 001100 SCMTAG: sSTART OF COMMON TAGS 

647 001100 000000 PASS: .WOR 0 CONTAINS PASS COUNT 

648 001102 000 STSTNM: .BYTE 0 23 CONTAINS ha ont. NUMBER 

649 001105 000 SERFLG: .BYTE 0 :sCONTAINS ERR LAG 

650 001104 000000 SICNT: .WORD 0 3 CONTAINS SUBTEST ITERATION COUNT 
651 001106 000000 SLPADR: .WORD 0 33CONTAINS SCOPE LOOP ADDRESS 

652 001110 000000 SLPERR: .WORD 0 ssCONTAINS SCOPE RETURN FOR ERRORS 
653 001112 000000 SERTTL: .WORD 0 ssCONTAINS TOTAL ERRORS DETECTED 
654 001114 000 EMB: .BYTE 0 3sCONTAINS ITEM CONTROL BYTE 

655 001115 001 X: .BYTE 1 3 CONTAINS MAX. ERRORS PER TEST 

656 001116 000000 SERRPC: .WOR 0 3sCONTAINS PC OF LAST ERROR | +t lla 
657 001120 000000 GDADR: .WORD 0 ssCONTAINS ADDRESS OF ‘GOOD’ DAT 

658 001122 000000 SBDADR: .WOR 0 3sCONTAINS ADDRESS OF +BAD® DATA. 
659 001124 000000 SGDDAT: .WOR 0 Hs 3 od ay ae ‘GOOD DATA 

660 001126 ~WORD 0 3 TAINS ‘BAD’ DATA 

661 001130 000000 - WOR 0 7 7RESERVED=-NOT TO BE USED 

662 001132 000 -WORD 0 

665 001134 000 S$AUTOB: .BYTE 0 ssAUTOMATIC MODE INDICATOR 

664 001135 000 SINTAG: .BYTE 0 32 INTERRUPT MODE INDICATOR 

665 001136 000000 ° 0 

666 001140 177570 SWR: WORD DSWR yet OF SWITCH REGISTER 

667 001142 177570 DISPLAY: .WORD DDISP DRESS OF A aes REGISTER 

668 001144 177560 $TKS: 177560 tty KBD STATUS 

669 001146 177562 $TKB: 177562 :sTTY KBD BUFFER 

670 001150 177564 STPS: 177564 szTTY PRINTER STATUS REG. ADDRESS 
671 001152 177566 $TPB: 177566 2eTTY PRINTER BUFFER REG. reg dy 
672 001154 000 $NULL: .BYTE 0 3sCONTAINS NULL CHARACTER FOR FILLS 
673 001155 002 SFILLS: .BYTE 2 3sCONTAINS # OF he ed ier REQUIRED 
674 001156 012 SFILLC: .BYTE 12 23 INSERT ‘a CHARS. AFT 

675 001157 STPFLG: .BYTE 0 ae “TERMINAL A VAILABLE™ FLAG. (BIT<07>=0=VES) 
676 001160 077 SQUES: .ASCII /?/ QUESTION MARK 

677 001161 015 SCRLF: .ASCII <15> i; CARRIAGE RETURN 

678 001162 000012 SLF: eASCIZ <12> ssLINE FEED 

679 FF RAAAAARARARAERAARAREARAEAERERARARERERAARAERARAERARREEREREEREREEE 


(ne 
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34 -SBTTL ERROR POINTER TABLE 

682 s*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

683 s*THE INFORMATION IS OBTAINED BY USING THE INDEX ER FOUND IN 

684 s*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE apo & im PERTINENT. 
685 :*NOTE1: IF SITEMB IS 0 THE ONLY PERTINENT DATA IS (SERR 

oe ;*NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
688 s@ EM 3;POINTS TO THE ERROR MESSAGE 

689 se DH 33;POINTS TO THE DATA HEADER 

690 se DT 3sPOINTS TO THE DATA 

24 ge DF :3POINTS TO THE DATA FORMAT 

93 





6 
694 001164 


SEQ 15 


== 5 


dD 2 
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CZDXJC.P11 07=JUN-82 16:26 MODULE 0.0 TEST CONTROL | 
695 .SBTTL MODULE 0.0 TEST CONTROL 
696 ; MODULE 0.0 TEST CONTROL 
698 : | 
699 : 
700 ; 
701 
702 001164 START: 
703 ~SBTTL INITIALIZE THE COMMON TAGS 
704 [CLEAR THE COMMON TAGS ($CMTAG) AREA 
705 001164 012706 001100 MOV #SCNTA AG.R6 zFIRST LOCATION TO BE CLEARED 
706 001170 005026 CLR (R6)+ T:CLEAR MEMORY LOCATION 
707 001172 022706 001140 CMP #SWR,R6 ::DONE? © 
708 001176 001374 BNE 6 ::LOOP BACK IF NO 
709 001200 012706 001190 #STA ::SETUP THE STACK POINTER | 
710 s INITIALIZE A FEW VECTORS 
711 001204 012737 006174 000034 #STRAP, a#TRAPVEC Cag TRAP VECTOR FOR TRAP CALLS 
712 001212 012737 000340 000036 MOV #340, a/TRAPVEC 2:1 L? 
713 001220 012737 006272 000024 MOV #SPURDN. a#PWRVEC :;pOMER FAILURE VECTOR 
714 001226 012737 000340 000026 MOV 0,a#PWRVEC+2 ; 7 
715 :3SIZE FOR A h HARDuAnes SWITCH REGISTER’ IF NOT FOUND OR IT IS 
716 T:EQUAL TO A ''=1'', SETUP FOR oA SOFTWARE SWITCH REGISTER. 
717 001234 013746 000004 MOV a#ERAVEC, =< 3 SAVE ERROR VECTOR 
718 001240 012737 001274 000004 MOV #64$, seteavec: ::SET UP ERROR VECTOR 
719 001246 012737 177570 001140 MOV #DSWR, SWR +: SETUP FOR, A HARDWARE SWICH REGISTER 
720 001254 012737 177570 001142 MOV #DDISP,DISPLAY ::AND A HARDWARE DISPLAY REGISTER 
721 001262 022777 177777 177650 CMP #-1, aSUR s:TRY TO REFERENCE HARDWARE SWR 
722 001270 001012 BNE 66$ :2BRANCH IF NO TIMEOUT TRAP OCCURRED 
723 [:AND THE HARDWARE SWR IS NOT = -1 
724 001272 000403 BR 65$ +:BRANCH IF NO TIMEOU 
725 001274 012716 001302 64$: MOV #65$, (SP) ::SET UP FOR TRAP RETURN 
726 001300 000002 RTI 
727 001302 012737 000176 001140 65$: MOV #SWREG, SWR Z:POINT TO SOFTWARE SWR 
728 001310 012737 000174 001142 MOV #D1SPREG, DISPLAY 
729 001316 012637 000004 66$: MOV (SP)+,a#ERRVEC ;;RESTORE ERROR VECTOR 
731 001322 5 RESET 
732 001326 005037 012174 CLR FIRSTP :CLEAR 1ST PASS Sw 
733 001330 005057 012274 CLR DEVMSS [SET UP TO PRINT DEVICE ADDR CONFIG FIRST TIME ONLY 
734 001334 004737 001600 RESTART: JSR PC,GETPRM STALK TO THE OPERA 
735 001340 013737 012212 012214 MOV COUNT, CNT :SET UP ITERATION. COUNT 
736 001346 013737 012154 012206 Go: MOV ATESTN,CTESIN GET FIRST TEST NO. 
737 001354 005037 012220 CLR LOCK SCLEAR LOOP LOCK SW 
738 001360 005037 012216 CLR ERR TRESET ERROR TAD ICATOR 
739 001364 013702 012206 TST: MOV CIESTN, R2 
740 001370 3n2 ASL :MULTIPLY BY TWO FOR WORD BNDRY 
741 001372 000172 001376 JMP oF STAB(R2) *GO TO TEST THRU DISPATCH TABLE ' 
742 001376 TSTAB: HALT TTEST 0 DOESN'T EXIST 
743 001400 TST1 
744 001402 007176 TST 
745 001404 00744 TST 
746 001406 010156 TST4 
767 sWHEN TEST IS DONE IT ALWAYS RETURNS HERE AFTER ONE ITERATION 
748 001410 ENDTST: 
749 001410 005046 CLR -(SP) :PUT NEW PS ON STACK 
750 001412 012746 001420 MOV -#64$,-(SP) t [PUT NEW PC ON STACK | 
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000002 


040000 


012206 
012206 


012214 
012274 
012272 
005372 


005372 
005372 
005372 
000001 
012172 
177572 
005372 


000042 


RTI 
64$: 


177512 BIT 


012136 CMP 


EOP: TST 


012274 MOV 
10$: TST 


15$: JSR 


R 
SENDAD: JSR 


END1: BR 


MACY11 30A(1052) 
INITIALIZE THE COMMON T 


E 2 


hon tease 16:29 PAGE 18 


#40000,aSWR 
TST 


CTESTN 
cao eeen 


RS,PRINT 
FRSTDV 


R5,PRINT 
D 


+ Thats 
15$ 
a#SRO 
R5,PRINT 
ou 
a#42,R0 
END1 
PC,@RO 


RESTART 


3;POP NEW PC AND PS 


‘IS Le SWITCH ON 
YES 


HINCRENENT TO NEXT "ae 
ZHAVE | VE_A a 3H BEEN 


T EX XPIRE RED 
HAVE WE PRINTED DEVICE CONFIG YET? 
WERE DEVICES RECOGNIZED? 
zBR NOTH 


HING TO SAY 
PRINT DEV NO. ASCII 


sPRINT DEV NO. OCTAL 

sPRINT DEVICE COUNT ASCII 
sPRINT DEVICE COUNT OCT 

3SET rte eee PRINTED SWITCH 


zIS KT I! 
:BR IF NO 
TURN OFF MEM MGT 


sPRINT CONTROL PARAMETER 
sARE WE UNDER 

IF NO, START OVER 
:G0 TO MONITOR 
3ROOM FOR 
: aAcTi1 
Fs STUFF 
sSTART OVER 


F 2 
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793 Pe dy MODULE 1.0 GET PARAMETERS 





| 

194 ; DULE 1.0 GET PARAMETERS | 
296 : CALLED AS FOLLOWS 
198 : JSR PC, GETPRM | 
800 : THIS MODULE ASSURES THAT Al’ PARAMETERS ARE AQUIRED FOR 
801 ; OPERATION OF THE DIAGNOSTI( TO D0 THIS IT ESTABLISHES 
802 : A DIALOG WITH THE OPERATOR \AROUGH THE INPUT PARAM MODULE. 
803 : MEMORY IS SIZED BY THE "SIZE* MODULE, AND ALL PARMS ARE 
804 : CHECKED FOR VALIDITY BY THE CHECKP MODULE. 
806 : “C AT ANY TIME CLEARS THE 1ST PASS SWITCH AND EVERYTHING 
807 : STARTS OVER. CR IN RESPONSE TO ANY QUESTION CAUSES THE DEFAULT 
808 ; VALUE TO BE SUBSTITUTED. 
810 ; THIS MODULE NEVER RETURNS TO CALLER UNLESS ALL PARAMETERS 
gi] : HAVE BEEN ESTABLISHED WITH GOOD VALUES. 
813 : 
814 001600 005737 012174 GETPRM: TST FIRSTP :1S THIS THE FIRST PASS 
815 001604 001402 BEQ 5$ [BR IF YES 
816 001606 000137 002270 JMP ENDPRM [DON'T GET PARM 4 WE ALREADY HAVE THEM 
817 001612 005777 176224 5$: TST a42 TARE WE RUNNING IN AUTO 
818 001616 001415 BEQ 10$ [BRANCH IF RACHINE IS ATTENDED 
819 001620 013737 012124 012154 MOV DTESTN,ATESTN SETUP DEFAULTS 
820 001626 13737 012126 012156 MOV DUBA, AUBA :SETUP DEFAULTS 
821 001634 013737 012130 012160 MOV DVECT ,AVECT [SETUP DEFAULTS 
822 001642 013737 012132 012162 MOV DPRIOR,APRIOR :SETUP DEFAULTS 
823 001650 000564 BR 90$ [G0 SEE ABOUT MEMORY SIZING 
824 001652 022737 001566 000042 10$: CMP #SENDAD #42 UNDER A acti 
825 001660 001560 BEQ 90$ NO OPERATOR INTERACTION 
826 001662 005737 012210 TST PARMV TARE PARAMETERS GOOD 
827 001666 001004 BNE 15$ [BRANCH IF YES CAUSE THIS 
828 TALSO MEANS HEADER ISN'T NEEDED 
829 001670 004537 005372 JSR RS,PRINT [CALL THE PRINTER 
830 001674 012606 HEADER SADDRESS OF HEADER ASCIZ 
831 001676 000000 .WORD 0 [CONTROL WORD, CRLF + DON’T CONVERT 
832 001700 004537 002272 15$: JSR RS, INPRM 3GET D.P.S, OR N FROM OPER, 
833 001704 000001 “WORD 1 : THIS feits INPRM TO GET D.P.S.N 
834 > INPRM wit RETURN IN RO. THE CHAR TYPED 
835 001706 122700 000104 CMPB RO DEFAULT PARMS REQUESTED? 
836 001712 001015 BNE 50s" BR IF NO 
837 001714 013737 012124 012154 MOV DTESTN.ATESTN :DEFAULT SETUP 

38 001722 013737 012126 012156 MOV [DEFAULT SETUP 
839 730 013737 012130 012160 MOV DVECT ,AVECT [DEFAULT SETUP 

0 001736 013737 012132 012162 MOV DPRIOR,APRIOR :DEFAULT SETUP 
841 001744 000526 BR 90$ [G0 SEE ABOUT MEMORY SIZING 
842 001746 122700 000120 208: CMPB  #'P,RO [DOES OPERATOR WANT PREVIOUS 
843 001752 001011 BNE 30$ [BR IF NO 
844 001754 005737 012210 TST PARMV SARE PARMS SET 
845 001760 001401 BEQ 25$ BR IF PARAMETERS NOT VALID 
846 001762 000517 BR 90$ SUSE PREVIOUS PPARs NO ACTION NEEDED 
847 001764 004537 005372 25$: JSR R5,PRINT + TROUBLE D AND PARMS 
848 001770 013044 ~WORD INVM NEVER SET uP YPROPERLY | 
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001 

00 000123 
852 002 Op 1066 
853 002 005037 012210 
854 002010 537 002272 


002272 


012160 
005224 


002272 
012162 
005224 


005372 


002532 


000116 
002272 


012154 
005224 


012210 
005372 


MACY11 qoatiaee 


MODULE 1 


30$: 
35$: 


36$: 


37$: 


38$: 


40$: 
45$: 





—_ CE ee 


O7-JUN-82 16:29 PAGE 20 
-0 GET PARAMETERS 


0 

10$ 
#°S,RO 
40$ 
PARMV 

RS, INPRM 
2 
RO,ATESTN 
RS. » CHECKP 
RO . 


35$ 
a 
RO,AUBA 
R5,CHECKP 
3 

36$ 
paren 


RO,AVECT 
go -CHELEP 


37$ 

8. - INPRM 
RO,APRIOR 
5. » CHECKP 


38$ 

R5 PRINT 
hes 
95. SMASC 


90$ 
#°N,RO 
a. - INPRM 
RO,ATESTN 
RS, CHECKP 
2 

RO 
45$ 

PARMV 
90$ 

RS PRINT 


0 
10$ 


+h gS aa CRLF + DONT CONVERT 
760 TO TRY AGA 
ZARE Pans TO BE SELECTED? 


CLEAR PARM VALID SW 
eons INPUT MODULE TO GET TEST NO: 
yo ee WILL BE RETURNED IN RO 


‘IN 
sSAVE TEST ren ae IN ACTIVE PARM TABLE 
3 CHECK IF T 
3 PARAMETER INDICATES VERIFY TEST # 
:RO=0 IF CHECK OK 
sSTAY HERE UNTIL ~~ GETS IT RIGHT 
3ASK INPUT MODULE TO GET BASE ADDR 
; PARAMETER INDICATING GET UBA BASE 
sSAVE UB BASE ADDR & (ACTIVE. TABLE 
; CHECK FOR VALID ENT 
;PARM TO in gL CHECK UBA 
;RO=0 IF CHECK OK 
sSTAY HERE UNTIL . oat IT RIGHT 
ASK INPUT MODULE TO GET VECTOR ADDR 
PARM INDICATING VECTOR NEEDED 
SAVE VECTOR IN gtk. a PARM TABLE 
CHECK FOR VALID VECT 
;PARM INDICATING CHECK VECTOR 
:RO=0 IF VECTOR OK 
sSTAY HERE UNTIL HE GETS IT RIGHT 
360 GET DX PRIORITY 


SAVE PRIORITY 
sCHECK PRIORITY ENT 
;PARM INDICATING PRIORITY CHECK 


sSTAY HERE UNTIL HE GETS IT RIGHT 
sPRINT SET SWITCHES MESSAGE 
zADDR OF MESSAGE 


:DUMMY INPUT REQUEST TO WAIT FOR 
ZOPERATOR TO SET SWITCHES 
60 SEE ABOUT MEMORY $1ZING 
SWAS AN “N'" INPUT 

IF NONE OF DPSN WERE INPUT 
OR TEST ere TO BE INPUT 


TEST 
= VE TEST # CHECKED FOR PROPER 


its TEST # OK? 
STAY HERE UNTIL HE GETS IT RIGHT 
sWE HA - ee TEST #, ARE OTHER PARMS OK? 


: PRINT 
POINTER TO “NEED MORE PARMS** MSG 


SCONTROL WORD, CRLF + DON'T CONVERT 
360 BACK AND 60 IT ALL AGAIN 


SEQ 19 | 





Set. "o ae wih. yew ro 
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CZDXJC.P11 —- O7=JUN=82 16:26 MODULE 1.0 GET PARAMETERS 
905 . 
906 002222 004737 004224 $0$: JSR PC, SIZE :CALL MEMORY SIZING MODUL 
907 002226 012700 000015 MOV #15,R0 ;START OF LOOP TO SET UP DX ACCESS ADDRESSES 
908 002232 012701 012054 MOV #DXDSA,RI GET ADDR OF START OF TABLE 
909 002236 013702 012156 MOV AUBA,R 2GET DX REG BASE ADDRESS 
910 002242 010221 95$: MOV R2,(R1)+ [MOVE UBA TO TABLE 
911 002244 062702 000002 ADD #2,R2 :STEP TO NEXT UBA 
912 002250 005300 DEC RO :DECREMENT COUNTER 
913 002252 001373 BNE 95$ FILL oiité 13 LOCATIONS OF THE TABLE 
914 002254 012737 000001 012210 MOV #1,PARMV ZSET PARAMETER VALID SWITCH 
915 002262 012737 000001 012174 #1,FIRSTP [SET NOT FIRST PASS SWITCH 


MOV 
916 002270 0002u7 ENDPRM: RTS PC RETURN TO CALLER, END OF MODULE 


i _— -_—— 


'¢ 





SEQ 21 
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CZDXJC.P11  07=JUN=-82 16:26 MODULE 71.0 GET PARAMETERS 
917 
318 .SBTTL MODULE 1.1 INPUT PARAMETERS 
320 : MODULE 1.1 INPUT PARAMETERS 
92 : CALLED AS FOLLOWS 
924 : JSR RS, INPRM 
353 3 «WORD X 
927 : WHERE X DEFINES WHAT PARAMETER TO GET AS 
928 ; FOLLOWS: 
929 : x=1 ORN PARAMETER SELECTION 
930 : =2 Bearing TEST 
931 : = UBA BASE ADDR 
932 ; = DX VECTOR ADDR 
oer 3 x=5 DX PRIORITY 
935 : THE REQUESTED PARAMETER IS RETURNED IN RO ALL CONVERTED 
936 ; T9 OCTAL AND DEFAULT SUBSTITUTED WHEN INDICATED. INPUTS 
937 : ARE CHECKED FOR EVERYTHING EXCEPT THAT TH 
938 : IN THE C RANGE. CHECKING INCLUDES NUMERIC IF 
939 ; REQUIRED, OCTAL IF REQUIRED, <CR> FOR DEFAULT, ETC. 
940 i RO 


— MODULE DE a R1 


341 002272 012501 NPRM: GET THE PARAMETER FROM THE 
94 002274 120127 000001 CMPBséR1, #1 [1S PARM 1 = GET D.P.S, ORN? 
944 002 001016 BNE 1 :BR IF NO. 
945 002302 004537 005372 JSR R5,PRINT :PRINT 
946 002306 013102 ~WORD PROMPT 
947 002310 000000 <WORD 0 <P outaoe WORD, CRLF + DON'T CONVERT 
948 002312 004537 002532 JSR RS, INASC TREAD THE qT - 
949 002316 000001 “WORD 1 SINASC RETURNS POINTER TO 
950 002320 111100 MOVB = (R17) ,RO SINPUT IN R1 
951 [1ST CHAR TO RO 
952 002322 120027 000015 CMPB sR, ACR [WAS IT DEFAULTLED? 
953 002326 001100 BNE 90$ 7NO, ALL 
954 002330 113700 000120 MOVB = "PRO SINSERT DEFAULT OF P=PREVIOUS PARMS. 
955 002334 000475 BR 90$ TALL DONE 
957 002336 120127 000002 10$:  CMPB  R1,#2 z1S PARM m2 - GET TEST # 
002342 001014 BNE 20 BR IF 
959 002344 004537 005372 JSR R5,PRINT put 
002350 013114 -WORD TESTN TADDR OF STARTING TESTN MSG. 
961 002352 000000 “WORD 0 [CONTROL WORD, CRLF + DON'T CONVERT 
962 002354 004537 002532 JSR RS, INASC iGET OCTAL INPUT 
963 002360 000002 “WORD 2 [PARM TO GET OCTAL INPUT 
964 362 011100 MOV (R1),RO GET INPU 
965 002364 001061 BNE SIF NON 2 "RE DONE 
966 366 013700 012124 MOV DTESTN,RO ‘SUBSTITUTE a, ue DEFAULT 
967 002372 000456 BR 90$ DONE 
968 002374 120127 000003 20S:  CMPB  R1,43 [WAS UBA REQUESTED 
969 002400 001014 BNE 30 [BR IF NO 
970 002402 004537 005372 JSR RS, PRINT PRINT 
971 002406 013137 WORD BASEA TASK FOR BASE ADDR 
972 002410 000000 “WORD SCONTROL WORD, CRLF + DON'T CONVERT 

















973 002412 004537 
00000 


So 
_ 
_ 
Sx 


000 
Jao 
Sssss 
RRS 
ENSRNS 

3sce 
—OOW—— 

oF 

Las) 


s 
GSuNeNVs 


S 
Le) 
= 
Pw 
& 
So 
_ 
w 
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002532 


012126 
000004 
005372 


002532 
012130 


000005 
005372 


002532 


012132 
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MODULE 1.1 


30$: 


40$: 


80s: 
90$: 


INPUT PARAMETERS 
JSR RS, INASC 
WORD 


MOV (R1),RO 
BNE 90$ 

MOV DUBA,RO 
BR 90$ 
CMPB eR, #4 
BNE 0$ 


VE 
“WORD 0 

JSR ‘ RS, INASC 
MOV (R1),RO 
BNE 90$ 

MOV DVECT,RO 
BR 90$ 

CMPB R1,45 
BNE 0$ 

JSR RS PRINT 
WOR ILV 


MOV DPRIOR,RO 
90$ 


HALT 
RTS RS 
-SBTTL MODULE 1.1.1 


J 2 
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sGET re OCTAL 

GET THE a 

BR IF NOT UTED 
SUBSTITUTE Ne “bE AULT 
{DOES CALLER WANT VECTOR? 
;BR IF NO 


4 


RINT 

TASK FOR VECTOR ADDR 

SCONTROL WORD, CRLF + DON’T CONVERT 

[GET THE INPUT 

[GET THE NUMBER INPUT 

BR IF NOT DEFAULTED 

: SUBSTITUTE THE DEFAULT 

[DOES CALLER WANT PRIORITY? 

2QR IF INVALID CALL 

SASK FOR PRIORITY LEVEL 

[CONTROL WORD, CRLF + DON'T CONVERT 

SREQUEST INPUT 

TIN OCTAL 

:GET THE INPU 

IF OK, MOT DEFAULTED 

{SUBSTITUTE THE DEFAULT 

;HALT ON INVALID CALL TO THIS MOD 
CALLER 


RETURN TO 
INPUT FROM TTY 


SEQ 22 
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1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 002532 004737 002620 
1021 2536 012500 
1022 002540 120027 000001 
1023 002544 001004 
1024 002546 104410 
1025 002550 013637 013632 
1038 2554 000406 
1028 002556 120027 000002 
1029 002562 001006 
030 002564 104411 
1031 25 012637 013632 
032 002572 012701 013632 
1033 002576 000205 
1034 2 
1035 
1036 
1037 
1038 
1039 
1040 
1041 002602 000000 
1042 002 000000 
104 2 000000 
1044 002610 000010 
1045 002620 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 002620 005037 sve 
1056 002624 012737 002610 002604 
1057 002632 013737 Baseoe 002606 
1058 002640 012737 002670 000060 
1059 02646 012737 500 000062 
1060 onse28 005777 176266 
1061 660 012777 000100 176256 


K 2 
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MODULE 1.1.1 INPUT F 
MODULE 1.1.1 INPUT FROM TTY 


CALLED AS FOLLOWS 

JSR R5, INASC 

«WORD X 

WHERE X=1 FOR ASCII INPUT 
X=2 FOR OCTAL INPUT 


A POINTER TO THE INPUT MESSAGE IS RETURNED IN R1. 
ROUTINE DESTROYS RO,R1 


THIS 


mth eo Se Ge Ge Ge Se Be Ge Se Se Se Se Se Se 


NASC: JSR PC STKINT ZINITIALIZE THE TTY INPUT 
MOV (R5)+.R 7GET THE PASSED PARAMETER 
CMPB zIS IT A REQUEST FOR ASCII? 
BNE m0 Ai ‘BR IF NO. 
RDLIN [TRAP TO .$RZAD MACRO 
MOV a(SP)+,INBUF | :GET THE INPUT DATA 
BR 20$ 360 GET RESULT 

10$: CMPB  R0,#2 zI1S IT A REQUEST FOR OCTAL 

E 30$ 7BR IF NO 

RDOCT 
MOV (SP)+, INBUF z:POP STACK INTO INBUF 

20$: MOV #INBUF ,R1 :SET POINTER TO INPUT 
RTS RS :RETURN TO CALLER 

30$ HALT ZINVALID CALL TO MODULE 


“SBTTL TTY INPUT ROUTINE 


So RRAAAARAAEAERAAERERRRERERARERERARAEERRARRERRRAERERERERREERRRERERERE 


-ENABL LSB 

STKCNT: .WORD 0 3 sNUMBER OF ITEMS IN QUEUE 
STKQIN: .WORD 0 32 INPUT POINTER 

STKQOUT: .WORD as ee POINTER 

the a -BLKB 10 Y KEYBOARD QUEUE 


2*TK INITIALIZE ROUTINE 
S*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
; *SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 


S*CALL: 
3* JSR PC, STKINT 
:* RETURN 


$TKINT: CLR STKCNT 7CLEAR COUNT OF ITEMS IN QUEUE 
MOV #STKOSRT,STKOIN 3 IMOVE THE STARTING ADDRESS OF THE 
MOV $TKQIN, $TKQOUT UE INTO THE INPUT & OUTPUT POINTERS. 
MOV #STKSRY as*TKVEC eS INITIALIZE THE KEYBOARD VECTOR 
MOV 00, a#TkVEC+ 33"BR™ LEVEL 4 
TST estes CLEARS BONE LAG 
MOV #100, aSTKS TENABLE TTY KEYBOARD INTERRUPT 
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SEQ 24 | 
MD-11=CZDXJ=C DX11-8 ADDRESSING TEST MACY 30A(1052) O7=JUN-82 16:29 PAGE 25 
CZDXJC.P11 —- O7=JUN-82 16:26 TTY INPUT ROUTI 
} 
1062 002666 000207 RTS PC ::;RETURN TO CALLER | 
- 1064 z*TK SERVICE ROUTINE 
1065 3*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 
1066 :sBy READING, THE ¢ CHARACTER FROM THE INPUT BUFFER AND PUTTING | 
* 
1068 :*]F THE CHARACTER IS A “CONTROL=C’' (*C) STKINT IS CALLED AN 
1069 :*UPON RETURN EXIT IS MADE TO THE "‘CONTROL=C'' RESTART WDRESS (START) 
1071 002670 117746 176252 $TKSRV: MOVB aSTKB,=(SP) zsPICKUP THE CHARACTER 
1072 002674 042716 177600 BIC #°C177, (SP) 3STRIP THE JUNK 
1073 002700 021627 000021 CMP (SP) ,#$X0N :31S 1T A RANDOM XON? :RANOO1 
1074 002704 001002 BNE 30$ ANCH :RANOO1 
1675 002706 005726 TST (SP)+ + CLEAN RANDOM XON OFF STACK :RANOO1 
1076 002710 000002 RTI + :RETURN *RANOO1 
1077 002712 30S: :RANOO1 | 
1078 002712 021627 000003 CMP (SP) #3 231S 1T A CONTROL C? 
1079 00271 100 BNE 1$ CH 
1080 002720 104401 004022 TYPE  ,$CNTLC SITYPE A CONTROL=C (*C) 
1081 002724 004737 002620 JSR PC, STKINT Z:INIT THE KEYBOARD 
1082 002730 005726 TST (SP)+ [CLEAN UP STACK 
1083 002732 000137 001164 JMP START Z:CONTROL C RESTART 
1084 002736 021627 000007 1$: CMP (SP) ,#7 z:1S IT A CONTROL G? 
1085 002742 001004 BNE 2$ ::BRANCH IF NO 
1086 002744 022737 000176 001140 CMP #SWREG, SUR 3218S SOF T-SUR SELECTED? 
1087 002752 001500 BEQ 6$ 7:60 TO SWR CHANGE 
1089 002754 2$: 
1090 002754 022737 000010 002602 CMP #10, $TKCNT 31S THE QUEUE FULL? 
1091 002762 001004 BNE 3$ > :BRANCH IF NO 
1092 002764 104401 004016 TYPE | $BELL t:RING THE TTY BELL 
1093 002770 005726 TST (SP)+ 23CLEAN CHARACTER OFF OF STAC 
1094 002772 000451 BR 5$ x 
1095 002774 021627 000023 3$: CMP (SP) #23 3318 IT A CONTROL-S? 
1096 003000 001021 BNE 32$ ANCH IF NO ! 
1097 003002 005077 176136 CLR asTKs T:DISABLE TTY KEYBOARD INTERRUPTS 
1098 003006 005726 TST (SP)+ [:CLEAN CHAR OFF STACK 
1099 003010 105777 176130 31$:  TSTB a$TKS S:WAIT FOR A 
1100 003014 100375 BPL 31$ ::LOOP UNTIL ITS THERE 
1101 003016 117746 176124 MOVB a$TKB,-(SP) *:GET THE 
1102 00302 042716 177600 BIC #°C177, (SP) Z:MAKE IT 7-BIT ASCII 
1103 003026 022627 000021 CMP (SP)+,#21 7:18 IT A CONTROL-0? | 
1104 003032 001 BNE ::BRANCH IF NO 
1105 003034 012777 000100 176102 MOV #100, a$TKS 33 REENABLE TTY KEYBOARD INTERRUPTS | 
1106 003042 900002 RTI | 
1107 003044 005237 002602 32$: INC STKCNT :FCOUNT THIS CHARACTER 
1108 003050 021627 000140 CMP (SP) ,#140 31S IT UPPER CASE? 
1109 003054 002405 BLT T:BRANCH IF YES 
1110 003056 021627 000175 CMP (SP) #175 3:18 IT A SPECIAL CHAR? 
1111 003062 00 BGT 43 ::BRANCH IF YES | 
1112 : 000040 BIC #40, (SP) S:MAKE IT UPPER CASE | 
1113 003070 112677 177510 4$: MOVB «= (SPJ+.a$TKQIN AND PUT IT IN QUEUE | 
1114 003074 005237 002604 INC $TKOIN UPDATE THE POINTER 
1115 003100 023727 002604 002620 CMP STKOIN, #STKQEND 3360 OFF THE ufo? | 
1116 003106 901003 BNE 5$ ANCH IF | 
1117 003110 012737 002610 002604 MOV #STKOSRT,STKQIN Reser THE POINTER | 
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CZDXJC.P11 O7-JUN-82 16:26 Y INPUT ROUTI 
a 003116 000002 5$: RTI 3 3 RETURN 
1120 festa auiten aeeitteR GE Rane eee 
1121 {SOFTUARE gf Me gg HA CHANGE ROUTINE. 
1166 s*ROUTINE IS ENTERED THE TRAP HANDLER, WILL 
112 : #SERVICE tree TEST POR’ CHANGE IN SOF TWARE SUITCH REGISTER TRAP 
1124 + OPERATING IN TTY seerest | MODE. 
1125 003120 022737 000176 001140 ices #SWREG, SWR 3318S THE SOFT=-SWR SELECTED 
1126 003126 001124 * ENE 15$ 3 sEXIT IF NOT 
1127 003130 105777 176010 TSTB asTKs 31S A CHAR wartenee 
1128 003134 100121 BPL is 331F NOT, EXIT 
1129 003136 117746 176004 MOVB $STKB,-(SP) sYES 
1130 003142 042716 177600 BIC eCity (SP) s:MAKE IT 7=BIT ASCII 
1131 003146 021627 000007 CMP (SP) 4? t:1S IT A CONTROL=G? 
1132 003152 001300 BNE 2$ szIF NOT, PUT IT IN THE TTY QUEUE 
Wee $3 EXIT 
1135 33 CONTROL IS PASSED 10 Tals POINT Rom G1 @ Ther TT? lntpamaT & 
1136 3 *CONTROL is PASSED TO THIS POINT FROM EIT. ‘R THE TTY erry SERVICE 
1137 s*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF 
1138 z*CONTROL-G BEING TYPED, AND THE SOFTWARE SWITCH REGISTER BEING SELECTED. 
1139 003154 ir e134 001134 000001 é$: CMPB SAUTOB, rT 33ARE WE RUNNING IN AUTO-MODE? 
1140 003162 001674 BEQ 2s 33BRANCH IF YES 
1141 003164 005726 TST (SP) + ZzCLEAR CONTROL-G OFF STACK 
1142 003166 004737 002620 JSR PC, STKINT FLUSH THE TTY INPUT QUEUE 
1143 003172 005077 175746 CLR asTKs SDISABLE TTY KEYBOARD INTERRUPTS 
Hr 003176 112737 000001 001135 MOVB #1,SINTAG T:SET INTERRUPT MODE INDICATOR 
1146 003204 104401 0064034 TYPE -SCNTLG ;;ECHO THE CONTROL-G (*G) 
1147 003210 104401 004041 SGTSWR: TYPE -SMSWR +: TYPE CURRENT conrenrs 
1148 003214 013746 000176 MOV SWREG,=-(SP) 23SAVE SWREG FOR T 
1149 003220 104402 TYPOC reek cat ASCITCALL DIGITS) 
1150 003222 104401 004052 TYPE -SMNEW 3 FOR 
1151 003226 005046 19$: CLR -(SP) 33CLEAR T COUNTERS 
1152 003230 005046 CLR (SP) 33 NEW SWR 
1153 003232 105777 175706 7$: TSTB asTKs 7:CHAR THERE? 
BF 003236 100375 BPL 7$ sz 1F NOT TRY AGAIN 
1156 003240 117746 175702 MOVB a$TKB,-(SP) ssPICK UP 
ite. 003244 042716 177600 BIC #°C177, (SP) S3MAKE IT ‘eit ASCII 
1159 003250 021627 000003 CMP (SP) #3 e318 ITA CONTROL =C? 
1160 003254 001015 BNE CH IF NOT 
1161 32 104401 004022 TYPE eSCNTLC :zVES, rx CONTROL=C (*C) 
1106 0032 og 706 000006 ADD #6, SP [CLEAN UP STACK 
1163 003266 123727 001135 000001 CMPB SINTAG, #1 SREENABLE TTY KEYBOARD INTERRUPTS? 
1164 003274 001003 BNE : BRANCH IF NO 
1165 003276 012777 000100 175640 MOV #100, a$TKS TALLOW TTY KEYBOARD INTERRUPTS 
1166 003304 000137 001164 8$: JMP START 7:CONTROL“C RESTART 
1168 
1169 003310 021627 000025 9$: CMP (SP) ,#25 ree SS ITA CONTROL =U? 
1170 003314 1 BNE 1 ;;BRANCH IF NOT 
1171 003316 104401 004027 TYPE eSCNTLU 33 YES ECHO CONTROL-U (*U) 
He 3 003322 0627 000006 208: ADD #6,SP iI E PREVIOUS INPUT 
1173 003326 00073 BR 19$ S:LET'S TRY IT AGAIN 
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Y INPUT ROUTI 
10$: CMP (SP) ,#15 ArH} IT A <CR>? 
BNE 16$ ANCH IF NO 
TST 4(SP) 33 ves. IS IT THE FIRST CHAR? 
BEQ 11$ $3 ANCH IF YES 
MOV 2(SP) ,aSWR Z3SAVE NEW SWR 
11$: ADD #6,SP Z:CLEAR UP STACK 
14$: TYPE SCRLF ZzECHO <CR> AND <LF> 
CMPB $SINTAG, #1 SZRE-ENABLE TTY KBD INTERRUPTS? 
BNE 15 :2BRANCH IF NOT 
MOV #100,a$TKS SZRE-ENABLE TTY K8D INTERRUPTS 
5$: RTI 3 2RETURN 
16$: JSR PC, STYPEC 3ZzECHO CHAR 
CMP (SP) ,#60 si:CHAR < 0? 
BLT 18$ 3;BRANCH IF YES 
CMP (SP) ,#67 33CHAR > 7? 
BGT 18$ 3 BRANCH 4 ves 
BIC #60, (SP)+ szSTRIP-OFF ASCII 
TST 2(SP) 3218S THIS THE FIRST CHAR 
BEQ 17$ 3 ;BRANCH IF YES 
ASL (SP) 22NO, SHIFT PRESENT 
ASL (SP) 33 HAR O 0 E 
ASL (SP) $3 ROOM FOR NEW e 
17$: INC 2(SP) 33KEEP COUNT OF CHAR 
BIS -2(SP), (SP) 3zSET IN NEW CHAR 
BR 3:GET THE NEXT ONE 
18$: TYPE SQUES sz TYPE 2?<CR><LF> 
BR 20$ T:SIMULATE CONTROL-U 
-DSABL LSB 


fF AAAAAAAAAAAEEAAEREEAAEREERAEEAARAARAAARAERAERARARARARARAERRAEREREREEEEE 


sSTHIS: ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


* RDCHR 3:GET A CHARACTER FR2* THE QUEUE 
3* RETURN HERE [CHARACTER IS ON THE STACK 
ie T:WITH PARITY BLT STRIPPED OFF 
SRDCHR: MOV (SP) ,=(SP) z2PUSH DOWN THE PC AND 
MOV 4(sP}, 2(sP) Si THE PS 
CLR 4(s 33GET READY FOR A CHARACTER 
CLR Sp) *:PUT NEW PS ON STACK 
MOV pis =(SP) +:PUT NEW PC ON STACK 
si RTI +:POP NEW PC AND PS 
1$: Ist STKCNT z2WAIT ON A CHARACTER 
DEC $TKCNT r:DECREMENT THE COUNTER 
MOVE © @STKQOUT,4(SP) 33GET ONE CHARACTER 
INC $TKQOUT SUPDATE THE POINTER 


a4 $TKQOUT, #STKQEND’ ; ¢sDID LN GO OFF OF THE END? 


ANCH 
MOV #STKOSRT.STKQOUT ::RESET THE POINTER 
2s: RTI "HgRESET 
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SEQ 27 
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CZDXJC.P11 | O7=JUN-82 16:26 Y INPUT ROUT! 
1230 SF RRRAAAAAAAAAAAAAARAAAAEEEEEAAAAAAREAAARRERERAERARERERREEEEREEEE 
1231 sSTHIS: ROUTINE WILL INPUT A STRING FROM THE TTY 
123 * ZzINPUT A STRING FROM THE TTY 
1234 * RETURN HERE TIADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
1235 7* SZ TERMINATOR WILL BE A BYTE OF ALL O'S 
1237 003552 010346 SRDLIN: MOV R3. (SP) AVE R3 
1238 003554 00504 CLR -(§P) RIE AR THE RUBOUT KEY 
1239 003556 012703 004006 1$: eV #STTYIN,R3 SGET ADDRESS 
1240 003562 022703 004016 2$: CMP WSTTYIN¢10,R3 ::BUFFER FULL? 
1241 003566 101456 BLOS 46 4$ 33BR IF VES 
126e 003570 104407 RDCHR [GO READ ONE CHARACTER FROM THE TTY 
1243 003572 112613 MOVB (SP), (R3) T:GET CHARACTER 
1244 003574 122713 000177 10$:  CMPB  #177,(R3) i:1S 1T A RUBOUT 
1245 003600 001022 BNE 8 S:BR IF NO 
1246 003602 005716 TST (SP) 331S THIS THE FIRST RUBOUT? 
1247 003604 001007 BNE 6$ ::BR IF NO 
1248 003606 112737 000134 004004 MOVB = #"\ 98 S:TYPE A BACK SLASH 
1249 003614 104401 004004 TYPE , 
1250 003620 012716 177777 MOV #-1, (SP) ::SET THE RUBOUT KEY 
1251 003624 005303 6$: DEC R3 ::BACKUP BY ON 
1252 003626 020587 004006 CMP R3,ASTTYIN 33STACK EMPTY? 
1253 003632 1034 BLO :BR IF YES 
1254 003634 111337 004004 MOVB = (R3),,9$ 33 SETUP TO TYPEOUT THE DELETED CHAR. 
1255 003640 104401 004004 TYPE 9$ 0 TYPE 
1256 003644 000746 BR b$ ':G0 READ ANOTHER CHAR. 
1257 003646 005716 5$: TST (SP) ::RUBOUT, KEY SET? 
1258 003650 001466 BEQ 7$ ::BR IF NO 
1259 003652 712737 000134 004004 MOVB = #"\ ,9$ T:TYPE A BACK SLASH 
1260 003660 104401 004004 TYPE ,9$ 
1261 003664 005016 CLR (SP) Z:CLEAR THE RUBOUT KEY 
126¢ 3666 122713 000025 7$: CMPB «#25, (R3) 331$ CHARACTER A CTRL U? 
1263 003672 001003 BNE $ 
1264 003674 104401 004027 TYPE SCNTLU S:TYPE A CONTROL ‘U" 
1265 003700 000726 BR 3:G0 START OVER 
1266 003702 122713 000022 8$: CMPB ss #22, (R3) 2331S CHARACTER A ‘*R'? 
1267 003706 001011 BNE 3$ : CH IF NO 
1268 003710 105013 CLRB = (R3) :3CLEAR THE C CHARACTER 
1269 003712 104401 001161 TYPE  ,$CRLF TYPE A CR & 
1270 003716 104401 004006 TYPE STTYIN S:TYPE THE INPUT STRING 
1271 003722 000717 BR bs 3360 PICKUP ANOTHER CHACTER 
1272 003724 104401 001160 4$: TYPE SQUES :TY #98 
1273 003730 000712 BR is SeClEARS THE BUFFER AND LOOP 
1274 003732 111337 004004 38: MOVB  (R3),9$ S:ECHO THE CHARACTER 
1275 003736 104401 004004 TYPE 98 
1276 003742 122723 000015 CMPB ss #15, (R3)+ Z:CHECK FOR RETURN 
1277 003746 001305 BNE 2$ S:LOOP IF NOT RETURN 
1278 003750 105063 177777 CLRB 2s = 1(R3) T:CLEAR RETURN (THE 15) 
1279 003754 104401 001162 TYPE ,SLF S: TYPE A LINE F 
1280 003760 00572 TST (SP)+ TI CLEAN RUBOUT KEY FROM THE STACK 
1281 003762 01260 MOV (SP)+,R3 SIRESTORE R 
1282 003764 011646 MOV (SP) ,=(SP) 33ADJUST THE STACK AND PUT ADDRESS OF THE 
1283 003766 016666 000004 000002 MOV 4(SP) ,2(SP) i FIRST ASCII CHARACTER ON IT 
1284 003774 012766 004006 000004 MOV #STTYIN,4(SP) 
1285 004 000002 RTI 3 ;RETURN 
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O7-JUN-82 16:29 PAGE 29 


<207><377><377> 7: COD 


<15><12>/SWR = /"* 


/ NEW = / 


$ TERMINA FOR ASCII CHAR. TO TYPE 
geaae Yo 10 BYTES FOR TTY INPUT 
szCONTROL ‘'C’' 
+s CONTROL “vw - 

CONTROL ‘'G’’ 


READ AN OCTAL NUMBER FROM THE TTY 


FF ARAAAARAAERAEARARERARAREREERAEARERRERAERERERERRRAERERARRERREREEE 


2*THIS ve WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
*CHANGE IT TO BINARY. 


CHARA 


CTERS ike BE CHECKED TO oh THEY ARE LEGAL 
LLE CHARACTER IS 


READ A ‘'?** WILL BE TYPED 


OWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST 


DOCT 
RETURN HERE 


(SP) ,=(SP) 
4(SP) ,2(SP) 
RO,-(SP) 
R1,-(SP) 
R2,~(SP) 


(SP)+,RO 
RO,5$ 

R1 

R 
(RO)+,=(SP) 


#*C7, (SP) 
(SP)+,R1 
2s 


(SP)+ 
R1,12(SP) 
R2,$HIOCT 
(SP)+,R2 
(SP)+,R1 


:STHEN BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN. 


3 ¢READ AN OCTAL NUMBER 

sLOW ORDER BITS ARE ON TOP OF THE STACK 
+ :HIGH ORDER BITS ARE IN $HIOCT 
yt SPACE FOR THE 

iI T NUMBER 
7: PUSH RO ON STACK 
:2PUSH R1 ON STACK 

IZ LINE 

33GET aboness OF 1ST CHARACTER 
+ CLEAR DATA WORD 
32PICKUP THIS CHARACTER 
solr ZERO GET OUT 

E SURE THIS pata aes 

ar AN OCTAL DIGIT 
z3*2 
33%4 
33*8 


szSTRIP THE ASCII JUNK 
22ADD IN THIS DIGIT 


[ICLEAN TERMINATOR FROM STACK 
TISAVE THE RESULT 


33POP STACK INTO R2 
32POP STACK INTO R1 
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MD-11=CZDXJ=C DXx11-8 ey tS a TEST MACY11 30A(1052) 07=JUN-82 y io PAGE 30 
CZDXJC.P11 07-JUN-82 16:26 READ AN OCTAL NUMBER FROM THE T 


1342 004200 012600 MOV (SP)+,RO ::POP STACK INTO RO 

1343 004202 000002 RTI +: RETURN 

1344 004204 005726 4$: TST (SP)+ Z:CLEAN PARTIAL FROM STACK 
1345 004206 105010 CLRB = (RO) t:SET A TERMINAT 

1346 004210 104401 TYPE ::;TYPE UP THRU THE BAD CHAR. 
1347 004212 000000 5$: .WORD 0 

1348 004214 104401 001160 TYPE SQUES ri"? CR @ LET 

1349 004220 000730 BR is :TRY AGAIN 

1350 004222 00000 SHIOCT: .WORD 0 i EMIGH | ORDER BITS GO HERE 

1351 .SBTTL MODULE 1.2 SIZE’ MEMO! 
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MS IT=CZDKJ~C DX11-B ADDRESSING TEST — MACY11 304(1052) Q7-JUN-B2 16:29 PAGE 31 | 
CZDXJC.P11 —O7=JUN-82 16:26 MODULE 1.2 SIZE MEMO | 
1353 ; MODULE 1.2 SIZE MEMORY | 
1355 ; CALLED AS FOLLOWS | 
1356 ; 
1357 ; JSR PC, SIZE | 
1359 3 THIS MODULE SETS UP MEMORY SIZE INCLUDING EXTENDED | 
1360 ; ADDRESSING BITS IN ACTIVE PARAMETER TABLE 
1 7 
1364 004224 005037 004574 SIZE: CLR $KT11 ;DON'T TRY FOR MEM MGT 
1365 004230 004737 004510 JSR PC, SIZE GET MEM SIZE WITH KT OFF | 
1366 004234 37 012172 CLR 3RESET KT AVAILABLE SWITCH 
1367 004240 013737 005220 012166 MOV SLSTAD, MMA SAVE END OF CORE WITH KT OFF 
1368 004246 013737 005220 012164 MOV SLSTAD-MSIZE  SeeT END OF CORE TO WORK WITH 
1369 004254 023727 005220 017776 CMP  —- $LSTAD.#17776 = LESS THAN 8K? 
1370 004262 103415 BLO 80 _-235$ JBRANCH IF YES, DON'T PRESERVE LOADERS 
1371 004264 162737 000276 012164 SUB #276, MSIZE SAVE SPACE FOR ABS LOADER 
1372 004272 005737 000042 TST = aa2 ZRUNNING UNDER ACT OR XXDP 
1373 006276 001407 BEQ = -35$ 
1374 004300 023737 000042 000046 CMP = #42, 846 SRUNNING UNDER XXDP CHAIN? 
1375 004306 001403 BEQ 5$ ; 
1376 004310 162737 005500 012164 SUB #5500,MSIZE =; SAVE SPACE FOR LOADERS 
1377 004316 005037 012170 35$: CLR — EASIZE CLEAN UP EXTENDED ADDR 
1378 004322 005037 012224 CLR —s EABITS 
1379 004326 037727 174606 002000 BIT  § aSwWR,#Sw10 CHECK IF MM TO BE USED 
1380 004334 001064 BNE 3BR IF NO 
1381 004336 012737 000200 004574 10$: MOV § #200,$KT11 
1382 004344 004737 004510 20$: JSR PC, $SIZE 
1383 004350 005737 004574 TST = $kT11 31S MM ACTIVE 
1384 004354 100054 BPL  —-30$ :BR_IF_NO 
1385 004356 012737 012172 MOV = #1_KT :SET KT IN USE FLAG 
1386 004364 022737 007540 005222 CMP = «-#7540,$LSTBK «3; 124K VRG | 
1387 004372 003003 BGT 6=s_-‘1$ INO = BRANCH VRG 
1388 004374 012737 007540 005222 MOV #7540,$LSTBK ::FORCE IT TO 124KW = WRG 
1389 004402 013737 005222 012170 1$: MOV —« $SLSTBK EASIZE 
1390 004410 062757 0 012170 ADD #40, EASIZE ZINCR TO FIRST INVALID SETTING 
1391 006416 013737 005222 012226 MOV —- SLSTBK,PHYMAX = START GEN OF MAX PHYSICAL 
1392 004424 006337 012226 ASL —- PHYMAX ; ADDR 
1393 004430 006337 012226 ASL —- PHYMAX ; (LOW 
1394 004434 006337 012226 ASL — PHYMAX 3 16 
1395 004440 006337 012226 ASL — PHY ; BITS 
1396 004444 006337 012226 ASL PHYMAK 
1397 004450 006337 012226 ASL 
1398 004454 052737 003776 012226 BIS #ST76PHYMAX. _:SET UP TO USE LAST 1K TOO 
1399 004462 013737 005222 012224 MOV = $LSTBK, EABITS 
400 004470 042737 171777 012224 BIC #171777, EABITS ;SAVE ONLY EXT ADDR BITS 
1401 006476 000337 012224 SWAB EABITS MOVE TO BIT POS. | 
1402 004502 006337 012224 ASL” EABITS MOVE TO BIT POS. 4:3 FOR Dx11 | 
1403 004506 000207 30$: RTS PC ;RETURN | 
1405 ~SBTTL ROUTINE TO SIZE MEMORY | 
1407 SS AAAARERAAAAAARARERARAEREREEERAERAEREEEEEEREAEREERRAAERAEEREEEEEREEEEE 
1408 3 *CALL: 
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MACY11 30A(1052) 
ROUTINE TO SIZE MEMOR 


j*SLSTAD uitiekt CONTA 


SE MEMORY , roe 
Bas yk THE C 
DETERMINED B BY ROUTINE 


MOV SPR 
z2SET THE gERRVEC PS TO THE PRESEN ni PS 
(SP)+, a#ERRVEC#2°” 
#3776.R1 


SCORE 
Sasnge SrERRVEC, zjSet FO FOR 


#100$ ,a#ERRVEC 
24170200 
#176200 ,a#$sTOP 
#200, 


are, pe 


ee 16:29 PAGE 32 


“- LAST VIRTUAL_ADDRESS OF THE LAST BANK 
=- LAST Pe + ati ADDRESS OF AVAILABLE MEMORY 


WIT HOUT KT11 "OPT ION 
;*SLSTBK WILL CONTAIN THE LAST at AS A 
eeir , IS THE MEMORY GEMENT KEY 


+ ay 


y MANAGEMENT OPTION 


33 SAVE RO ON THE STACK 


33SAVE R4 ON THE STACK BK001 
2sSAVE MEMORY ERROR VECTOR PS & PC 


2 IGNORE PARITY ERRORS WHILE SIZING 


csp)" 7 Save PRESENT ERROR VECTOR PS & PC 


;SAVE THE STACK POINTER 


H OLD PSW AND PC ON STACK 
33SAVE THE PSW IN @#ERRVEC+2 
23 SETUP ADDRESS 


7U MANAGEMENT 
ziSET TO USE MEMORY MANAGEMENT 
TIMEOUT 
ARE YOU THERE? 


3K 
fit ges KT11 KEY 
ISET FOR Ml ys. BK001 


S_MAP ARE YOU THERE? BK001 

33 YES~SET COMPARISON VALUE FOR 11/70 Bk001 
7T MAP INDICATOR BK001 
3:60 SET UP MAP REGISTERS BK001 
2 COMPARISON VALUE FOR i3 BIT MAPPING BKk001 
3sCLEAN OFF STACK BK001 


33MAKE SURE MAP INDICATOR TURNED Ad BK001 


7:2200 IF MAP PRESENT 8K001 
SIFILLED WITH APPROPRIATE COMPARISON VALUE 
T UP COUNTER BK001 


33STAR ART WITH MAPLO Bk001 

sLOAD ALL sof at STERS BK001 
33WITH 3 BK001 
2300 ALL 31 REGISTERS Bk001 


iz INITIALIZE FOR “PAR LOADING 

ADDRESS OF FIRST 'P, 
ZSLOAD EIGHT “PAR. *S'* AND EIGHT "PDR. 'S"* 
EEPDR = GK. UP, READ/WRITE 





dies SEQ 32. 


MD-11=CZDXJ=C DX11-8 ADDRESSING TEST MACY11 30A(1052) 97 -JUN-82 16:29 F\GE 33 

CZDXJC.P11 | O7=JUN-82 16:26 ROUTINE TO SIZE ME 
1465 004734 062716 000200 ADD #200, (SP) ZUPDATE FOR NEXT “PAR 
1466 004740 077307 $08 R ::LOOP UNTIL ALL erent ane LOADED 
1467 004742 012742 177600 MOV #177600,-(R2) $:SETUP KIPAR7 FOR 1/0 
1468 004746 005 CLR =(R2) T:SETUP KIPAR6 FOR TESTING 
1469 004750 0612737 004766 000004 MOV #2$,aMERRVEC § ::CATCH TIMEOUT IF NO SR3 
1470 004756 012737 000060 172516 MOV #60, a4SR3 TENABLE 22 BIT MODE AND UNIBUS MAP Bk001 
1471 004764 000401 BR ::THIS PDP=11 HAS A SR3 REGISTER 
1472 004766 022626 2$: CMP (SP)+, (SP)+ 33CLEAN OFF THE STACK=-NO 
1473 006770 005237 177572 3$: INC R [TURN ON MEMORY MANAGE 
1474 004774 012737 005042 000004 MOV #SKTOUT @#ERRVEC iaSET F FOR TIME OUT 
1475 005002 105737 004666 TST8 asSMAP z:1S MAP THERE? 8k001 
1476 005 100006 BPL 4$ 3 NO~SKIP Bk001 
1477 005010 012737 005064 000114 MOV #SMMOUT,24114 ::SET UP MEMORY ERROR VECTOR Bk001 
1478 005016 013737 000116 MOV arEnnve sz, a#116 :;LOCK OUT INTERRUPTS 8k001 
1479 005024 005737 143776 4$: TST a4#143776 1 FASS ON NON-EX-MEM 
1480 0050 062712 000040 ADD #40, (R2) S:MAKE A 1K STEP 
1481 005034 023712 004670 CMP @A$STOP,(R2)  ::LAST ONE? 
1482 005040 101371 BHI 4 t:NO--TRY IT 
1483 005042 011202 SKTOUT: MOV (R2) ,R2 <:GET LAST BANK+1 
1484 005044 005037 177572 CLR aasro ::TURN OFF MEMORY MANAGEMENT 
1485 005050 105737 004666 TST8  aASMAP t:1S MAP THERE? 8k001 
1486 005054 100034 BPL SSIZEX + :NO=SKIP BK001 
1487 005056 005037 172516 CLR 7:TURN OFF MAP Bk001 
1488 005062 000431 BR SSIZEX 
1489 005064 013704 177744 SMMOUT: MOV @4177744,R4 Z2SAVE MEMORY ERROR REGISTER Bk001 
1490 005070 010437 177744 MOV R4,@4177744 TI CLEAR BITS IN REGISTER BK001 
1491 005074 032704 000001 BIT #1.R6 Z:MEMORY TIMEOUT? Bk001 
1492 005100 001360 BNE $kTOUT t:YES-EXIT BK001 
1493 005102 000002 RTI :3MUST BE PARITY ERROR~ IGNORE IT Bk001 
1494 005104 042737 100000 004574 $KINEX: BIC #100000, $k KT11 NON-EX ISTENT 
1495 005112 012737 005142 000004 SCORE: MOV PSCROUT MERRVEC’ *FESET FOR TIMEOUT 
1496 005120 005002 CLR R2 [SET UP BANK 
1497 005122 062701 004000 1$: ADD #4000,R1 STINCREMENT BY 1k 
1498 005126 062702 000040 ADD #40,R2 331K STEP 
1499 005132 005711 TST (R15 :TRAP ON TIME OUT 
1500 005134 022701 177776 CMP #177776,R1 tILAST ONE 
1501 005140 001370 BNE 1$ tINO=-TRY AGAIN 
1502 005142 162701 004000 SCROUT: SUB #4000,R1 
1503 005146 162702 000040 $SIZEX: SUB #40,R2 : DROP BACK 
1504 005152 910006 MOV RO, SP > :RESTORE THE STACK 
1505 005154 012637 000006 MOV (SP) +, @#ERRVEC+2° :;RESTORE ERROR VECTOR 
1506 005160 012637 000004 MOV (SP) +; @#ERRVEC 
1507 005164 012637 000116 MOV (SP)+,a#116 Z RESTORE MEMORY ERROR VECTOR 
1508 005170 012637 000114 MOV (SP)+, 9114 
1509 005174 010137 005220 MOV R1,$LSTAD ZZLAST ADDRESS 
1510 005 010237 005222 MOV R2,$LSTBK [:LAST BANK 
1511 005 012604 MOV (SP)+,R4 TIRESTORE R46 Bk001 
131@ 5206 012603 MOV (SP)+.R3 T:RESTORE R 
1513 005210 012602 MOV (SP)+;R2 TIRESTORE R 
1514 005212 012601 MOV (SP)+-R1 S:RESTORE R1 
1515 005214 012600 MOV (SP)+-RO S:RESTORE RO 
1516 005216 000207 RTS C 
1517 005220 000000 SLSTAD: .WORD 0 ZZCONTAINS THE LAST ADDRESS 
1518 005222 000000 SLSTBK: :WORD 0 *:CONTAINS THE LAST BANK 
1520 -SBTTL MODULE 1.3 CHECK PARAMETERS 


H 3 
MD-11=CZDXJ-C DX11-B Spee SING TEST MACY11 30A(1052) O7=JUN-82 16:29 PAGE 34 


CZDXJC.P11 - O7=JUN-82 16:26 MODULE 1.3 CHECK PARAMETERS 
1521 : MODULE 1.3 CHECK PARAMETERS 
1338 : CALLED AS FOLLOWS 
13$? 3 JSR . RS. CHECKP 
1527 : THIS MODULE HAS RESPONSIBILITY FOR VALIDATING PARAMETERS 
1528 : INPUT BY THE OPERATOR. IT COMPARES THE INPUT PARAMETER 
13¢9 : NST PARAMETER LIMITS DEFINED IN THE I P. TER 
15 ; LIMITS TABLE. HE P IS OUTSIDE THE SPECIFIED 
1531 ; LIMITS, AN ERROR MESSAGE IS OUTPUT AND ALL ONES IS RETURNED 
1532 ; IN RO. IF THE PARAMETER IS OK, ALL ZEROS IS RETURNED IN 
1534 : 
1535 : X DEFINES THE PARAMETER TO CHECK AS FOLLOWS: 
1536 : Xe STARTING TEST NUMB 
1537 : X= BASE ADDR OF DX CONTROL REGS 
1538 : = Dx VECTOR A ADDRESS 
1539 ; x=5 PRIORITY 
1540 : THE PARAMETER TO BE CHECKED IS PASSED IN RO. 
134@ 005224 012501 CHECKP: MOV (RS)+,R1 ZGET PARAMETER TO BE CHECKED 
154 005226 120127 000002 CMPBsaR1,42 :1$ IT TEST NO? 
1544 005232 001007 BNE 10 7BR IF NO 
1545 005234 020037 012134 CMP RO,LTESTN CHECK Low LIMIT 
1546 005240 002443 BLT :BR IF ERR 
1547 005242 020037 012136 CMP RO,HTESTN [CHECK HIGH LIMIT 
1548 005246 003040 BGT 90$ :BR IF ERROR 
1549 005250 BR 80$ 760 TO OK RETURN 
1550 005252 120127 000003 10$: CMPB R1,43 31S IT BASE ADDR OF Dx 
1551 005256 001007 BNE 0 7BR IF NO 
1552 005260 020037 012140 CMP RO, LUBA ZCHECK LOW LIMIT 
1553 005264 002431 BLT 90$ ‘BR IF BAD 
1554 005266 020037 012142 CMP RO,HUBA :CHECK HIGH LIMIT 
1555 005272 003026 BGT 90$ ‘BR IF BAD 
1556 005274 BR 80$ 70K, RETURN 
1557 005276 120127 000004 20$:  CMPB  R1,46 :1$°1T THE VECTOR? 
1558 005302 001007 BNE :BR IF NO 
1559 020037 012144 CMP RO,LVEC ZCHECK THE LOW LIMIT 
1560 005310 002417 BLT ‘BR IF BAD 
1561 005312 020037 012146 CMP RO,HVEC ZCHECK THE HIGH LIMIT 
156¢ 005316 003014 BGT 90$ [BR IF BAD 
1563 005320 000422 BR 80$ 30K, RETURN 
1564 005322 120127 000005 30$:  CMPB R1.45 71S°PARM PRIORITY LEVEL 
1565 005326 001007 BNE 40$ 'BR IF NO 
1566 005330 020037 012150 CMP RO, LPRIOR [CHECK LOW LIMIT 
1567 005334 002405 BLT :BR IF BAD 
1568 005336 020037 012152 CMP RO, HPRIOR [CHECK HIGH LIMIT 
1569 005342 003002 BGT $ :BR IF BAD 
1570 005 000410 BR 80$ 30K, RET 
1571 005346 40$: HALT TERROR, BAD MODULE CALL PARM 
1378 005350 004537 005372 90$: JSR RS, PRINT [PRINT PARM LIMIT ERROR 
1573 005354 013250 -WORD BADP SADDR OF MESSA GE 
1574 005356 000000 “WORD 0 SCONTROL WORD, CRLF + DON'T CONVERT 
1575 005360 012700 177777 MOV #-1,R0 [SET ERROR R RETURN CODE 
1576 005364 000401 BR 95$ RETURN 
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MD-11=CZDXJ=C DX11-8 sponse S3iNs TEST MACY11 30A(1052) O7=JUN-82 16:29 PAGE 35 
CZDxJC.P11 07-JUN-82 16:26 MODULE 1.3 CHECK PARAMETERS 


1577 005366 005000 80$: CLR RO 3SET GOOD RETURN CODE 
1378 005370 000205 95$: RTS RS sRETURN TO CALLER. 


1580 -SBTTL MODULE 1.5.1 WRITE TTY 
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MD-11-CZDXJ=-C DX11-8 aponE SING TEST 
82 16:26 


CZDXJC.P11 07=JUN- 
Fe 
1584 
1585 
1586 
1587 
1588 
1589 
1590 
1591 
1592 
1593 
1594 
1595 
1596 005372 
1597 005372 010046 
1598 005374 010146 
1599 005376 012500 
1600 5400 012501 
1601 095402 032701 000001 
1602 005406 001002 
1603 005410 104401 
1604 005412 013625 
1605 005414 005701 
1606 005416 100003 
1607 5420 011046 
1608 005422 104402 
1609 005424 000404 
1610 005426 010037 005434 
1611 54 104401 
1612 005434 
1613 005436 
1614 5436 012601 
1615 005440 012600 
1616 005442 000205 
1617 
1618 
1619 
1620 
1621 
iB 
1634 
1625 
1626 
1627 
1628 
1629 
1630 
1631 
1632 
1633 
1634 
1635 005444 103732 001157 
1636 005450 100002 


é § 
MACY 304(1052) 17 JUN-82 16:29 PAGE 36 
MODULE 1.3.1 — TTY 
: MODULE 1.3.1 WRITE TTY 
: THIS MODULE HANDLES ALL OUTPUT TO THE OPERATOR 
: CALLED AS FOLLOWS 
; JSR RS PRINT 
; .WORD MSG ZADDRESS OF MESSAGE OR OCT # 
: “WORD = CTL 
F RETURN 
; CTL=  BITO=1 :DONT = CRLF BEFORE MESSAGE 
; B1T15=1 [CONVERT OCTAL TO ASCII AND PRINT 
PRINT 
MOV RO,-(SP) :2PUSH RO ON STACK 
MOV R1.=(SP) *:PUSH R1 ON STACK 
MOV (R5)+,R0 :GET F MSG ; 
MOV (R5)+.R1 ‘GET PRINT CONTROL WORD 
BIT 1,R1 :D0 ACR 
BNE 10$ 7BR IF NO 
TYPE STRAP TO TYPE ROUTINE 
.WORD &#CRLF1 POINTER TO CRLF ASCII 
10$: TST R1 t1S IT OCTAL? 
BPL 208 BR IF NO 
MOV (RO) ,-(SP) [PUT OCTAL # ON STACK 
TYPOC STYPE 6 CHAR VIA TRAP 
408 ‘DONE 
20S: V RO,25$ [PUT MESSAGE ADDR INLINE 
TYPE STRAP TO TYPE ASCII RIN 
258: «WORD 0 [POINTER TO MSG GOES HERE 
MOV (SP)+,R1 z:POP STACK INTO R1 
MOV (SP)+-RO 7:POP STACK INTO RO 
R SRETURN TO CALLER 


RTS 
sTYPE TRAP CALL COMES HERE 
-SBTTL TYPE ROUTINE 


iii iitiiiiiiiiiiiiiiiitiiiitiiiity 

 SROUTINE TO TYPE ASCIZ “iy ® MESSAGE MUST TERMINATE WITH A 0 Orie. 

3 #THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 

3 *NOTE1: SNULL CONTAINS THE CHARACTER " BE USED AS THE FILLER CHARACTER. 
SFILLS CONTAINS FILLER CHARACTERS REQUIRED. 


* *NOTE2: THE NUMBER OF 

+ *NOTE3: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
ie 
s*CALL: 
:*1) USING A TRAP INSTRUCTION 
+ SOR TYPE »MESADR Z3MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
* TYPE 
sf MESADR 
STYPE TSTB STPFLG 3218S THERE A TERMINAL? 

BPL 1$ 37BR IF YES 


SEQ 35 | 


kK 3 
MD-11=-CZDXJ=-C DX11=B ADDRESSING TEST MACY11 Naa O7-JUN-82 16:29 PAGE 37 


CZDXJC.P11 | 07=JUN=82 16:26 TYPE ROUTI 
1637 005452 000000 HALT SZHALT HERE IF NO TERMINAL 
1638 005454 000407 BR 3$ ; sLEAVE 
1639 005456 010046 1$: MOV RO,-(SP) 7SAVE RO 
1640 005460 017600 000002 MOV a2(SP),RO TIGET ADDRESS OF eis STRING 
1641 005464 112046 2s: MOVB te =(SP) 33PUSH CHARACTER TO BE TYPED ONTO STACK 
1642 005466 001005 BNE 4$ ::8R IF IT ISN'T THE TERMINAT 
1643 005470 005726 TST (SP)+ 331F TERMINATOR POP IT OFF THE STACK 
1644 005472 012600 60$: MOV (SP)+,RO SRESTORE RO 
1645 005474 062716 000002 3$: ADD #2, (SP) 33 ADJUST RETURN PC 
1646 005500 000002 RTI :R 
1647 005502 122716 000011 4$: CMPB #HT, (SP) ds th IF <HT> 
1648 005506 001430 BEQ 4 
1649 005510 122716 000200 CMPB #CRLF , (SP) 33BRANCH IF NOT <CRLF> 
1650 005514 001006 BNE 
1651 005516 005726 TST (SP) + :;POP <CR><LF> > ie 
1652 005520 104401 TYPE +: TYPE A CR AND L 
1653 005522 001161 SCRLF 
1654 005524 105037 005742 CLRB SCHARCNT 33CLEAR CHARACTER COUNT 
1655 005530 000755 BR 2 33GET NEXT CHARACTER 
1656 005532 004737 005614 5$: JSR PC STYPEC :GO TYPE THIS CHARACTER 
1657 005536 123726 001156 6$: CMPB ss SFILLC,(SP)+  ::1S IT TIME FOR FILLER CHARS.? 
1658 005542 001350 BNE 2$ 7:1F NO GO GET NEXT 
1659 005544 013746 001154 MOV SNULL ,-(SP) 3:GET # OF FILLER CHARS. * NEEDED 
1660 ZZ:AND THE NULL CHAR. 
1661 005550 105366 000001 7$: DECB =s-« 1( SP) 7:DOES A NULL NEED TO BE TYPED? 
1o06 005554 002770 BLT 6$ 32BR IF wre tes THE NULL OFF OF STACK 
1663 005556 004737 005614 JSR PC, $TYPEC 7:60 TYPE A NULL 
1664 005562 105337 005742 DECB SCHARCNT 3200 NOT COUNT AS A COUNT 
1665 005566 000770 BR 7$ 7: LOOP 
214 sHORIZONTAL TAB PROCESSOR 
1669 005570 112716 000040 8$: MOVB ee REPLACE TAB WITH SPACE 
1670 005574 004737 005614 9$: JSR oc $repec 33 TYPE A SPACE 
1671 005600 132737 000007 005742 BIT8 #7.$CHARCNT 7:BRANCH IF NOT AT 
1672 005606 001372 BNE STAB STOP 
1673 005610 005726 TST (SP) + ::POP SPACE OFF STACK 
1674 005612 000724 BR 2$ 7:GET NEXT CHARACTER 
1675 005614 STYPEC: 
1676 005614 105777 173324 TSTB = @STKS CHAR IN KYBD BUFFER? :MJD001 
1677 00 100022 BPL 10$ 33BR F NOT 7MJD001 
1678 005622 017746 173320 MOV a$TKB,-(SP) [GET :MJD001 
1679 00 042716 177600 BIC #177600, (SP) :iSTRUP x EXTRANEOUS BITS :MJD001 
1680 005632 122716 000023 CMPB«#SXOIF, *SP) S:WAS C :MJD001 
1681 005636 001012 BNE :92$ 7:8R IF or :MJD001 
1682 005640 101$: :MJD001 
1683 005640 105777 173300 TSTe Py ae s2WAIT FOR CHAR 3MJ0001 
1684 005644 100375 BPL 1943 7MJD001 
1685 005646 117716 173274 MOVB = aSTKB 2:GET CHAR :MJD001 
1686 00565 042716 177600 BIC #177660, (SP) [:STRIP IT 7MJD001 
1687 005656 122716 000021 CMPB so #S$XON z:WAS IT XON? 3MJ0001 
1688 00 001366 BNE 101$ ° [:BR IF NOT :MJ0001 
1689 005664 102$: [MJ0001 
1690 005664 005726 TST (SP)+ scFIX STACK 74J0001 
1691 005666 10S: [MJD001 


1692 005666 105777 173256 TSTB asTPs 3zWAIT UNTIL PRINTER IS READY 





eee... 
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MD-11=CZDXJ=-C DX11-8 SBORESS ING T’ST MACY11 30A(1052) O7=JUN-82 16:29 PAGE 38 
TYPE ROUTINE 


SEQ 3? | 
CZDXJC.P11 | O7=JUN-B82 16:26 


1693 005672 100375 BPL 10$ 7MJD001 
169% 005674 126627 000002 000021 CMPB —s-- (SP) , #SXON zz1S CHARACTER A RANDOM XON? *RANOO1 
1695 005702 001420 BEQ STYPEX T:BRANCH IF YES [RANOO1 
1696 005704 116677 000002 173240 MOVB  2(SP),a$TPB S:LOAD CHAR TO BE TYPED INTO DATA REG. 
1697 005712 122766 000015 000002 CMPB ss #CR,,2( SP) 7:1S CHARACTER A CARRIAGE RETURN? 
1698 005720 001003 BNE 1$ ::BRANCH IF NO 
1699 005722 105037 005742 CLRB $CHARCNT 3YES@=CLEAR CHARACTER COUNT 
1700 005726 000406 BR STYPEX x 
1701 005730 122766 000012 000002 1S: CMPB ar. ge (sP t:1S CHARACTER A LINE FEED? 
1702 005736 001402 BEQ $TY 33BRANCH IF YES 
1703 005740 105227 INCB Pe. ZCOUNT THE CHARACTER 
1704 005742 000000 SCHARCNT:.WORD 0 +: CHARACTER COUNT STORAGE 
1705 005744 000207 STYPEX: RTS PC 
1707 sTYPOC TRAP CALL COMES TO $TYPOC TAG BELOW 
1708 ~SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
1710 FRAAARAAAARAAREAARAAREREREREARARARRRERREREREREREREERRERERREREEREEEE 
1711 tSTHIS ROUTINE I$ USED TO CHANGE A 16-BI1T BINARY NUMBER TO A 6-DIGIT 
1712 3 #OCTAL (ASCII) NUMBER AND TYPE IT. 
hat — HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
te 
1715 3* MOV NUM, -(SP) ;:NUMBER TO BE TYPED 
1716 te TYPOS T:CALL FOR TYPEOUT 
1717 ie .BYTE ON 7:N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
1718 78 “BYTE Mf ::M=1 
1719 * r:1=TYPE LEADING ZEROS 
1720 7* T:0=SUPPRESS LEADING ZEROS 
7* 
1722  *$TYPON=---ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
1723 ;*STYPOS OR STYPO 
1724 CALL: 
1725 ie MOV NUM, = (SP) Z:NUMBER TO BE TYPED 
1766 3* TYPON s:CALL FOR TYPEOUT 
3* 
1728 i ¥$TYPOC~=-ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
1730 3* MOV NUM ,-(SP) 22NUMBER TO BE TYPED 
1731 ie TYPOC S:CALL FOR TYPEOUT 
738 005746 017646 STYPOS: MOV a(SP) ,-(SP) 22PICKUP THE sar 
1734 005752 116637 000001 006171 VB  1(SP)-;S$OFILL 33LOAD ZERO FILL SWITCH 
1735 0057 M2657 006173 MOVB  (SP)+.SOMODE+1 ::NUMBER OF DIGITS TO TYPE 
1736 005764 062716 000002 ADD #2, (SP) S:ADJUST RETURN ADDRESS 
1737 005 000406 BR $TYPON 
1738 005772 112737 000001 006171 $TYPOC: MOVB 4#1,$0FILL r:SET THE ZERO FILL swITCH 
1739 006000 112737 000006 006173 MOVB 4#6.SOMODE+1 TISET FOR SIX(6) DIGITS 
1740 006006 112737 000005 006170 $TYPON: MOVB 4#5.SOCNT T:SET T HE ITERATION COUNT 
1741 006014 010346 MOV R3,-(SP) S:SAVE R 
174@ 006016 010446 MOV R4,=(SP) S:SAVE R& 
1743 006020 010546 MOV R5,-(SP) TISAVE RS 
1744 006022 113704 006173 MOVB  S$OMODE+1,R4 7:GET THE NUMBER OF DIGITS TO TYPE 
1745 006026 005404 NEG R4 
1746 006030 062704 000006 ADD #6, R4 £3 SUBTRACT IT FOR MAX. ALLOWED 
1747 006034 110437 006172 MOVB R4.SOMODE [SAVE IT FOR USE 
1748 006040 113704 006171 MOVB = SOF ILL R4 S:GET THE ZERO FILL SWITCH 





———-—--—— 
SEQ 38 
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MD-11=CZDXJ=C DX11-B ADDRESSING TEST MACY11 30A(1052) 


CZDXJC.P11 | O7=JUN-82 16:26 BINARY TO OCTAL (ASCII) AND TYPE 
1749 006044 016605 000012 MOV 12(SP) RS zsPICKUP THE INPUT NUMBER 
1750 006050 005003 CLR R3 Z:CLEAR THE OUTPUT, WORD | 
1751 006052 006105 1$: ROL R5 S:ROTATE MSB INTO "'C 
1752 006054 000404 BR ag 7:60 DO MSB 
1753 006056 006105 2s: ROL R5 S:FORM THIS DIGIT 
1754 006060 006105 ROL R5 | 
1755 006062 006105 ROL R5 
1756 006064 010503 MOV R5,R3 
1757 006066 006103 3S: ROL R3 ::GET LSB OF THIS DIGIT 
1758 006070 105337 006172 DECB  $OMODE T:TYPE THIS DIGIT? 
1759 006074 100016 BPL 7$ ':BR IF 
1760 006076 042703 177770 BIC #177770,R3 ¢:GET RID OF JUNK 
1761 006102 001002 BNE 4$ T: TEST FOR 
1762 006104 005704 TST RG ::SUPPRESS THIS 0? 
1763 006106 001403 BEQ 5$ ::BR IF YES 
1764 006110 005204 4$: INC R4 ::DON'T SUPPRESS ANYMORE 0'S 
1765 006112 052703 000060 BIS #°0,R3 T:MAKE THIS DIGIT ASCII 
1766 006116 052703 000040 5$: BIS #° °R3 T:MAKE ASCII IF NOT ALREADY 
1767 006122 110337 006166 MOVB = R33, 8S T:SAVE FOR TYPING 
1768 006126 401 006166 TYPE a +:G0 TYPE THIS DIGIT 
1769 006132 105337 006170 7$: DECB © $OCNT S:COUNT BY 1 
1770 006136 003347 BGT 2$ [:BR IF MORE TO DO 
1771 006140 002402 BLT 6% ::BR IF DONE 
1772 006142 005204 INC RG 3: INSURE LAST DIGIT ISN'T A BLANK 
1773 006144 744 BR 2$ 7:60 DO THE LAST DIGIT 
1774 006146 012605 6S: MOV (SP)+,R5 S:RESTORE RS 
1775 006150 012604 MOV (SP) +. R4 S:RESTORE R4 
1776 006152 012603 MOV (SP) +-R3 SIRESTORE R3 
1777 006154 016666 000002 000004 MOV 2(SP) .4(SP) [:SET THE STACK FOR RETURNING 
1778 006162 012616 MOV (SP) +. (SP) 
1779 006164 2 RTI RETURN | 
1780 006166 000 8$: .BYTE 0 T:STORAGE FOR ASCII DIGIT 
1781 006167 000 “BYTE 0 [: TERMINATOR FOR TYPE ROUTINE 
1782 006170 000 SOCNT: <BYTE 0 ZI0CTAL DIGIT COUNTER 
1783 006171 000 SOFILL: .BYTE 0 T:ZERO FILL SWITCH 
1784 006172 000000 SOMODE: :WORD 0 ::NUMBER OF DIGITS TO TYPE 
1785 ~SBTTL MODULE 2.0 INTERRUPT HANDLERS 


Nn 3 
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1786 ; 
1787 : MODULE 2.0 
1788 3 
1789 : 
1790 3 INTERRUPT HANDLERS 
1791 : 
173e : 
179 : 
1794 : 
1795 : 
1796 ~SBTTL TRAP DECODER 
1798 23 SREAAAAAAAAAAAAARAERAAAAREAAEAAAARARRAARARARARARARERRAEREKRKEREKKKKKEKKRE 
1799 [*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE "TRAP’’ INSTRUCTION 
1800 3*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
1801 [*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
1802 :*GO TO THAT ROUTINE. 
1804 006174 016646 000002 STRAP: MOV 2(SP) « g5 (SP) : ASSUME THE STATUS OF 
1805 006200 042716 000020 BIC #20, ¢ 33 THE CALLER--DO NOT ALLOW 
1806 006204 012746 006212 MOV #1$, Oeep) 33 T-BIT TRAPS 
1807 006210 00000 RTI 33SET THE NEW STATUS 
1808 12 010046 1$: MOV RO,-(SP) AV 
1809 14 016600 000002 MOV (SP), RO 33GET TRAP ADDRESS 
1810 006220 005740 TST (RO) KUP BY 2 
1811 006222 111000 MOVB (RO), RO 33GET RIGHT BYTE OF TRAP 
1812 006224 006300 ASL R T10N FOR INDEXING 
1813 006226 016000 006246 MOV STRPAD(RO),RO =: INDEX L 
1816 006232 000200 RTS RO 2360 TO ROUTINE 
1816 
isi? z:THIS IS USE TO HANDLE THE ‘'GETPRI'* MACRO 
1819 006234 011646 STRAP2: MOV (SP) ,-(SP) z:MOVE THE PC DOWN 
1820 006236 016666 000004 000002 MOV 4(SP) ,2¢SP) MOVE THE PSW DOWN 
1821 006244 000002 RTI 3ZRESTORE THE PSW 
1828 -SBTTL TRAP TABLE 
1825 s*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
1826 [*BY THE “TRAP’’ INSTRUCTION. 
1828 : ROUT INE 
1829 . (Se & mor os ao ow 
1830 006246 2 STRPAD: .WORD $7 
1831 006250 005444 $TYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEQUT ROUTINE 
1832 52 005772 $TYPOC ;;CALL=TYPOC Rapee 106608) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
1833 006254 005746 STYPOS ;;CALL=TYPOS TRAP+3( 104403) TVPE OCTAL NUMBER (NO LEADING ZEROS) 
18% 006256 006006 STYPON ;;CALL=TYPON TRAP*4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
1836 006260 003210 SGTSWR ;;CALL=GTSWR § TRAP+5(104405) GET SOFT-SWR SETTING 
1838 006262 003120 SCKSWR ;;CALL=CKSWR §§ TRAP+6(104406) TEST FOR CHANGE IN SOFT-SUR 
1839 64 003466 SRDCHR ;;CALL=RDCHR §TRAP*7(104407) TTY TYPEIN CHARACTER ROUTINE 
1840 006266 00355 SRDLIN ;;CALL=RDLIN TRAPS 10100810) TTY TYPEIN STRING ROUTINE 
1841 70 004064 SRDOCT ;;CALL=RDOCT TRAP*+11(104411) READ AN OCTAL NUMBER FROM TTY 
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~SBTTL POWER DOWN AND UP ROUTINES 


SRAAARERAAARAAARAAAAAARAEAEAEAERARRERRARARAERERARRERAERERAEREARERRERE 


;POWER DOWN ROUTINE 


SPUR #SILLUP i ES gSET FOR FAST UP 
ey #340, “aAPURVEC® 
MOV RO,- PUSH ‘RO ON STACK 
MOV RT (SP) +ZPUSH RI ON STACK 
MOV R2,-(SP) +:PUSH R2 ON STACK 
MOV R3,-(SP) ::PUSH R3 ON STACK 
MOV R4,-(SP) +:PUSH R4 ON STACK 
MOV R5,-(SP) i: PUSH RS ON STACK 
MOV @SWR,-(SP) 2 PUSH @SWR ON STACK 


6 S 
#SPWRUP, a*PWRVEC’ 73SET UP VECTOR 
72 3 2HANG UP 


SRAAAAAAARAAARRARRRREAERARERAEREERERERERRAERRRRERREERARRERREREREREE 


POWER UP ROUTINE 


$PWRUP: MOV #SILLUP ,@#PWRVEC ;;SET FOR FAST DOWN 
MOV SSAVR6,SP ::GET SP 
CLR SSAVR6 3:WAIT LOOP FOR THE TTY 
1$: INC SSAVR6 3:WAIT FOR THE INC 
BNE 1$ WORD 
MOV (SP)+,aSWR 3 POP STACK INTO @SwR 
MOV (SP)+,R5 ::POP STACK INTO R5 
MOV (SP)+.R4 ::POP STACK INTO RG 
MOV (SP)+.R3 ::POP STACK INTO R3 
MOV (SP)+,R2 3:POP STACK INTO R2 
MOV (SP)+,R1 2POP STACK INTO R} 
MOV (SP) + RO 3POP STACK INTO RO 
MOV #SPWRON PURVEC 328 gSET UP THE POWER DOWN VECTOR 
MOV 7360, aePURVEC® 0:7 
TYPE sjPRio i THE POWER FAILURE 
SPWRMG: .WORD $POWER Z:POWER FAIL MESSAGE POINTER 
MOV (PC) +, (SP) S:RESTART AT RESTART 
SPWRAD: g¥ORD RESTART ::RESTART ADDRESS 
SILLUP: HALT THE POWER UP SEQUENCE WAS STARTED 
BR 72 33 ; BEF ORE THE POWER DOWN 
SSAVR6: 0 7:PUT THE SP HERE 


SPOWER: .ASCIZ <15><12>*'POWER' 
-EVEN 
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-SBTTL MODULE 3.0.1 TST1 FAST NPR DATA TEST 





MODULE 3.0.1 FAST NPR DATA TEST 


THIS IS A oe ko tent TEST TO wt THE aah 
OF THE DX TO DO NPR'S OF + TA_INTO MEMORY 

WITH TE aay COUNTS. THE XGA IS CHECKED FOR 

ITS ABILITY TO COUNT AND ALL CARRIES * as COUNTER ARE 
EXERCISED. THE DATA TRANSFERS ACCESS A 

AVAILABLE MEMORY EXCEPT WHERE THE PROGRAM IS LOCATED, 
AND THE AREA WHICH MAY BE OCCUPIED BY A LOADER. 


JSR R5, INIT Hy AE aE THE Ry Aig PS, ETC 
JSR PC.DXRES PUT THE DX_IN A GOOD KNOWN STATE 
JSR R5 BUF AD 3GET FIRST BUFFER BASE AND SET UP K 
-WORD 100402 :CTL BIT ee ttf BUFFER BASE "DIVISABLE 


iy 4 00, SET UP 


MOV AVECT :SE 

MOV aINTA (nos :DX INTERRUPT 

MOV #340, ( ZAND DX PSW 

MOV #402. bur sze “BUFFER SIZE A  bITTLE BIGGER THAN OFFSET 
:TO CREATE A Y OUT OF HIGH ORDER BIT 

JSR BUF CLR [CLEAR THE BUFFER 


MOV wibosese DXMOO =:SET DATA PATTERN AND OPOUT 
BIS EACUR.@DXCSA  : SET-UP DX EXT ADDR BITS 
MOV BEBAPH aX BAA SE UP DX BUS ADDR REG. 


JSR R : 
«WORD -402 :BYTE COUNT 
; INTERRUPT WILL RETURN HERE AFTER DATA TRANSFER IS COMPLETE 
TST INTERR ;DID WE GET HERE VIA INTER 
BNE 8$ [BR IF NO, STACK IS Ok 
MOV #5$,asP [SET UP RETURN ADDR 
RTI SRELIEVE INTERRUPT STATUS 
MOV #8$,R5 [SET UP JSR RETURN ADDR 
RTS R5 RELIEVE SUBROUT INE STATUS 
MOV BUFBAS RO ‘GET STARTING AD 
MOV BUF SZE.R1 GET R SI7E. 
DXMOO, (RO)+ :CH YTE 
BEQ 15$ [BRANCH IF NO ERROR 
JSR RS, ERRR SREPOR ERR 
“WORD 1 ZE 1D 
“WORD ERR TADDR OF ERROR MESSAGE 
DEC R1 :DECREMENT BUFFER COUNT 
BNE 1 SLOOP UNTIL ALL OF BUFFER CHECKED 
BIC MDONE,@DXCSA =: TURN OFF FAST MODE 
BIC #SOSIEN,@DXESA TURN OFF FA E 
BIC #30,aDXCSA SCLEAR POSSIBLE CARRY IN EA BITS 
TSTB xmo0 *CHECK IF FIRST OF TWO PASSES 
BM 7BR IF NOT FIRST PASS 


I 0$ ‘ 
MOV #100652,DXM00 ;SET UP SECOND DATA PATTERN 
BR G01 2D0 TRANSFER UTA THIS DATA 
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30$: 
ENDT1: 


iy XGO: 


64$: 


10$: 


INTERR: 


BUF CLR: 


10$: 
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JSR PC..BUFCLR sPUT BUFFER BACK TO ZEROS 


JSR R5, BUF AD 3GET NEXT BUFFER ADDRESS 
.WORD 402 BASE TO BE DIVISABLE BY 400 
TST R1 SCHECK FOR OUT OF MEMOR 

BEQ LOOP1 SBRANCH IF THERE IS 


MORE 
JMP ENDTST sOTHERWISE WE'RE DONE WITH TEST 


SUBROUTINE TO START THE DX IN SOSIEN MODE 


MOV DXMOO , @DXMOA 3SEND DATA _AND OP OUT TO MAINT REG 
MOV (R5)+,aDXBCA 4M oa BYTE COUNT FROM PASSED PARM. 


CLR =(SP) T NEW PS ON STACK 
MOV #64$ ,-(SP) ‘pur NEW PC ON STACK 
RTI 7;POP NEW PC AND PS 


BIS #103, aDXCSA sSET FUNCTION TO I6M WRITE 
ENABLE INTERRUPTS 
BIS #SELO!HLDO, aDxMoA sFORCE DX SELECTION 
BIC #SELO!HLDO,@DXMOA DROP SELECT LINES 
BIS #CMDO,@DXMOA os 
#CMDO,@DXMOA COMMAND OUT 
BIS #SOSIEN,@DXESA ZEMBLE oes SERVICE OUT/SERV IN 


TO UN 
CLR at 3 CLEAR No INTERRUPT OCCURED FLAG 


DEC Rl :WAIT HERE FOR INTERRUPT 

JSR RS, ERRR ZERROR, INTERRUPT NEVER CAME 
2 TERROR IDENTIFER 

“WORD ERR2 ERROR MESSAGE POINTER 

MOV #1, INTERR [SET NO INTERRUPT OCCURED FLAG 

RTS R5 CONTINUE TESTING 

.WORD 0 :SET TO IF DX11 FAILED TO INTERRUPT 


SUBROUTINE TO CLEAR THE CURRENT SUFFER 
MOV BUFBAS ,RO GET BUFFER START 
MO SIZE 


Vv BUF SZE,R1 GET BUFFER 
CLRB (RO) + sCLEAR A BYTE 
DEC R1 TIT 
BNE 10$ LOOP TO CLEAR BUFFER 
RTS PC RETURN TO CALLER 
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1999 007050 

2000 007050 012746 
2001 007054 012746 
2002 7 000002 
2003 007 

2004 007 005037 
2005 7066 010537 
2 007072 005037 
2007 007076 000205 
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~SBTTL MODULE 3.1 TEST INITIALIZATION 
MODULE 3.1 TEST SOFTWARE INITIALIZATION 


CALLED AS FOLLOWS: 


R5,1 


JSR INIT 
RETURN COMES HERE 


#340,-(SP) 33;PUT NEW PS ON STACK 
#64$, (SP) 2sPUT NEW PC ON STACK 
2sPOP NEW PC AND PS 


ERR sRESET ERROR OCCURRED INDICATION 
RS ,LOCKAD SET UP LOCK ON ERROR RETURN ADDR 
haa sCLEAR MISSED INTR FLAG 


HARDWARE INITIALIZATION SUBROUTINE 


#10, aDXESA sDISABLE DX phony OUT, DEBUG ONLY 
#DONE ,@DXCSA CLEAR DONE AND LOCKO 
a. @DXCSA 3SET yee TO RESET 


ISSUE THE DX RESET 
#1330, SDXCSA 2 CLEAR Ai POTENTIAL DISASTER OF ONLINE OR INTEN 


;CLEAR EA BIT 
#SPW,aDXOSA 
“ VD TABLE AT HOME BASE? 
#SPW+2000,aDXOSA SET UP ALTERNATE SPW LOCATION 
gigeess. ,@DXCBA CkO ON? 


L 
IF NO 
iS IN TROUBLE, DX DIDN*T RESET 


a - AND MAKE SURE IT’S CLEARED 


SEQ 43 


eoceseee 
: 


oooo— 
MVVW— 
~“ 





1 Se Sf al DX11-8 ao tes TEST 


007050 
007100 
010620 


012160 
007306 


012244 
006706 


007026 
007322 
007330 
002704 


011272 
002664 


000200 
000030 
00000 


00000 
012240 
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-SBTTL MODULE 3.0.2 TST2 NPR ADDRESS UNIQUENESS 





; MODULE 3.0.2 NPR DATA ADDR UNIQUENESS TEST 
: was MODULE MS THE DX11°S ABILITY TO UNIQUELY ADDRESS EACH 
: D OF ME THIS TEST IS ACCOMPLISHED BY WRITING A BACKGROUND 
; iN A BLOCK OF "WEMORY. A WORD IS THEN TRANSFERRED FROM THE DX TO THE 
: MEMORY BLOCK. THE CPU CHECKS THAT THE WORD ARRIVES AT ITS 
: EXPECTED DESTINATION. IF YES THE WORD IS RESTORED TO MATCH THE 
: BACKGROUND, AND THE NEXT WORD IS TESTED. THIS IS REPEATED 
: FOR EACH WORD IN THE BLOCK AND FOR EACH BLOCK IN MEMORY. 
: NOTE: THIS TEST MAY NOT DETECT ADDRESSING PROBLEMS 
: WHICH ARE COMMON TO THE CPU AND DX11. I.E. UNIBUS ADDRESSING PROBLEMS. 
TST2: JSR RS, INIT INITIALIZE THE SOFTWARE 
JSR PC.DXRES INITIALIZE THE aren cok 
JSR RS ,BUF AD GET STARTING BUFFER ADDRESS 
— 101000 2PARM_MEANS INIT AND set UP1000 BYTE BUFFER 


AVECT,RO ZGET THE DX VECTOR A 
MOV #INTRO,(RO)+ SET UP RETURN A ADDR’ 
MOV #340, (RO) :SET INTR 
LOOP2: MOV #1006, BUF SZE ZESTABLISW BUFFER SIZE 
JSR PC,BUFCLR [CLEAR THE BUFFER 
MOV BUFBAS , DATAD INITIALIZE DATA ADDR 
MOV BFBAPH.BFADPH :GET PHYSICAL BASE ADDR 
LOP2: IS EACUR,a@DXCSA  _:SET EA A BITS IN THE DXx11 
MOV #100377,DXM00  :DATA PATTERN TO BE ORITTEN BY DX 


MOV BFADPH, @DXBAA ;SET £ DX DATA ADDRESS 
JSR RS ,DXGO ZSTAR T THE DX 
«WORD =2 YTE COUNT = 2 


3DX_ INTERRUPTS TO ene AFTER NPR° Be A WOR 
INTR2: TST INTERR D WE VCORE HERE i gh INTR 


BNE Re BR 1S NO 
MOV #5$,aSP :SET UP RETURN ADDR 
RTI :RELIEVE INTERRUPT STATUS 
5$: MOV #8$,R5 [SET UP RETURN ADDR 
RTS R5 SRELIEVE SUBROUTINE STATUS 
8$: CMP @DATAD, #1 [DID DATA GET WHERE Tr a SUPPOSED 10? 
sASSUME CPU CAN ADDRESS MEMORY CORRECTLY 
BEQ CH IF Ok 
JSR RS, ERRR 3REPORT THE ERROR 
“WORD 3 OR NUMBER THR 
“WORD ERR3 TADDR OF ERROR MESSA GE 
10$: CLR @DATAD SRESTORE THE WORD UNDER TEST 
BIC #DONE,@DXCSA —s : TURN OFF INTERRUPTS 
BIC #SOSIEN-@DKESA [CLEAR FAST MODE 
BIC #30, aDXCSA 3CLEAR POSSIBLE CARRY IN EA BITS 
ADD é BF ADPH [BUMP THE PHYSICAL ADDRESS 
ADD #2.DATAD ‘BUMP DATA POINTER 
CMP DATAD,BUFMAX §§ :DONE WITH BUFFER? 
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SEQ 45 


2084 007420 101716 BLOS LOP2 ;BRANCH IF NO 
2086 007422 004737 007030 JSR PC,BUFCLR ;RESTORE BUFFER 
2087 007426 004537 010620 JSR RS. BUF AD :GET NEXT BUFFER 
2088 007432 001000 .WORD 1000 :SIZE =10 

007434 005701 TST R1 [DID WE GET ONE? 
2090 007436 BEQ LOOP2 BRANCH 


001674 YES 
000137 001410 JMP ENDTST OTHERWISE TERMINATE TEST 
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$038 - SBTTL TST3 SPW ADDRESSING 

209 

2094 

2095 MODULE 3.0.3 SPW ADDRESSING TEST 

os 

3444 THIS MODULE yj THE ABILITY OF THE DX TO ACCESS THE STATUS 


POINTER WORD (SPW) TABLE IN ALL POSSIBLE LOCATIONS IN MEMORY. 
A BASE ADDRESS FOR THE SFW IS GENERA 

THIS SPW TABLE IS FILLED WITH A PATTERN OF OOODE 

OU BASES IS EQUAL TO THE DISPLACEMENT OF THE WORD FROM THE 


-E. 
SPW BASE =000000 
SPW BASE +1 =000001 


SPW BASE+255=000377 


GIVING A TOTAL OF 256 WORDS FOR THE SPW TABLE WITH IMMEDIATE 
STATUS EQUAL TO THE DEVICE 
AN _ISS joy ae IS pa Be bh WITH A vevie #or 0. IF 

ADRECC AND ADRECD DON’T COME ON FOR THIS DEV, NO TESTING IS DONE, 
THE DEV # IS arcs tie AND ISS IS DONE AGAIN. 
IF ADRECC AND ADRECD COME ON IT MEANS THE DX JUMPERS ARE CUT TO 
RESPOND TO THIS DEV NUMBER. THE ISS SEQUENCE IS THEN CONTINUED 
UNTIL THE STATUS IS IN THE DXOS REG. THIS STATUS IS Be 
CHECKED AND SHOULD BE EQUAL TO THE DEV # IF THE SPW 
ACCESSED CORRECTLY. 


THIS PROCEDURE IS REPEATED FOR ALL 256 POSSIBLE DEVICES AT 
ALL POSSIBLE LOCATIONS FOR THE SPW. 


THE FIRST RECOGNIZED DEV NO. AND COUNT OF THE FIRST 
GROUP OF RECOGNIZED DEVICES IS SAVED AND PRINTED AT END 
PASS TIME. IF NO DEV IS RECOGNIZED AND ERROR MESSAGE 
IS OUTPUT AT THE END OF THE TEST. 


mgt co Ge Ge Se Ge Be Ge Ge Ge Se Be Be Ge Be Ge Se Ge Ge Ge Ge Ge Se Se Se Se Ge Be Se Ge Ge Se Ge Ge Ge Fe Se Ge Se Be Se 


NAPA PEEP ERE PRADEEP PAPE PAPER DEER EEAPRER PEPE PE RB: 
SRR KKREK w WWW N~ [aw ) NOR) <8 ot ot od ot oe 





007444 537 007050 ST3: JSR RS, INIT r INITIALIZE THE SOF TUAR E 
007450 005037 012264 CLR RECORD :SET UP TO RECORD IBM DEV RECOG. | 
007454 005037 012266 CLR FRSTD ;SET TO RECORD FIRST DEV V RECOGNIZED 
007460 005037 012272 CLR ——dDEVCT CLEAR DEVICE COUNTER | 
007464 004737 007100 JSR PC ,DXRES TRESET THE Ox 
007470 012737 000400 012252 mov #400, CMD ZINITIALIZE A COMMAND OF ZERO | 
007476 004537 010620 JSR RS BUF AD 3GET THE FIRST BUFFER ADDR 
007502 102000 .WORD 102000 SPW ON 2000 ARY 
007504 012737 002000 012232 MOV #2000. BUF SZE 3SET UP BUFFER SIZE 
007512 004737 007030 JSR PC ,BUFCLR [CLEAR BUFFER | 
007516 005037 012250 LOOP3: (CLR DEV ‘START AT DEVICE 0 
007522 013700 012230 MOV BUFBAS RO [GET SPW TABLE BAS 
007526 013720 012250 10$: MOV DEV, (RO)+ [MOV IMMED. STATUS TO SPW EQUAL TO DEV 
007532 005237 01 912250 INC DEY SINC TO NEXT STATUS = NEXT DEV | 
7536 022737 77 (012250 CMP #255. DEV t1S DST FULL? 
J 
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SPW ADDRESSING 


10$ 300 MORE IF IT IS NOT 
DEV START AT DEV 0 
BFBAPH,@DXOSA  ;SET UP he i FOR SPW 


EACUR,@DXCSA  : SET _ UP EXT ADDR BITS 

RS, PTYGEN SASSIGN PARITY TO THE DEVICE BYTE 
DEV ZADDR OF DATA TO ASSIGN PARITY TO 
DEV, @DXCAA [SET DEV TO CUAR 

DEV. aDXMOA ‘PUT DEV ADDR ON BUSOUT 
WADRO,@DXMOA = :RAISE ADDR OUT 

#1, aDXCBA z1S ADRECD ON? 

20 IF ADDR NOT RECOGNIZED 
#2,aDXCBA 31S ADR ECC 

208 R NOT RECOGNIZED 

RS, SAVDEV +60 SAVE) RECOGNISED DEV DATA 
#HLDO! SELO, @DXHOA :RAISE SEL OUT, HOLD OUT 
#ADRO, @DXMOA ADRO 

DEV, @DXMOA REMOVE DEVICE FROM BUSO 

CMD; @DXMOA PUT CMD =0 ON BUSOUT 

#CMDO, @DXMOA RAISE CMD OUT 

CMD , @DXMOA [REMOVE CMD FROM BUSO 
#CMDO,@DXMOA :DROP CMD 

DEV, aDXOSA 31S STATUS EQUAL TO DEV? 


RS,ERRR ZREPORT ERROR 
g RROR 


ID 
ERR4 TERROR MESSAGE ADDR 
#SRVO,aDXMOA sRAISE SERVICE a TO RELIEVE STATUS 
#SRVO,@DXMOA DROP SERVICE OU 


R5,DONTSV 360 HANDLE RECOGNIZED DEV DATA 
PC. DXRES SRESTORE Dx 

DEV 760 TO NEXT DEV 

DEV SLAST DEV? 

OP3 IF MORE DEVICES 

PC ,BUFCLR :CLEAR OLD BUFFER BEFORE GETTING NEW ONE 
RS. BUF AD [GET NEXT BUFFER BASE 

2060 ZDIVISABLE BY 2000 

R1 [DID WE GET ANOTHER BUFFER? 

LOOP3 [BR IF YES AND DO NEXT ONE 

DEVCT STEST 1S DONE DID ve EVER FIND A 


40$ 
RS, ERRR TERROR, NO ADREDD AND ADRECD FOR ANY 
718M DEVICE NUMBER 


5 
ERRS sADDR OF ERROR MSG 
ENDTST 2 TERMINATE TEST 


PARITY ASSIGNMENT SUBROUTINE 
CA LES AS FOLLOWS: 


RS .PTYGEN 
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2204 : «WORD ADDR zADDRESS OF DATA TO WHICH PARITY WILL BE 
2205 ZASSIGNED 
ah ; RETURN HERE 
2208 ; REGISTERS R2, R3, R4& ARE DISTROYED BY THIS SUBROUTINE 
2210 : 
2211 010034 012503 PTYGEN: MOV (R5)+,R3 :GET ADDR OF DATA 
2212 010036 011304 MOV (R3) RG 2GET THE DATA 
2213 010040 005002 CLR R2 HINITIALIZE THE PARTIY SW 
2214 010042 106304 PTY2: ASLB  R4 3 CHECK A BIT 
2215 010044 102001 BvC PTY3 ONES 
2216 010046 005102 COM R2 OTHERWISE FLIP THE PARITY SW 
2217 010050 106304 PTY3: ASLB  R4 3TWO BITS GET CHECKED AT ONCE 
2218 010052 001373 BNE PTY2 TIF R4 = 0 WE'D 
2219 010054 905702 TST R2 DID THE SWITCH END UP SET? 
2220 010056 10040 BMI PTY4 “BR IF 
2221 010060 052713 000400 BIS #400, (R3) :SET THE BIT IN THE TARGET DATA 
2222 010064 000402 BR Y : 
2223 010066 042713 000400 PTY4: BIC #400, (R3) :CLEAR THE BIT IN THE TARGET DATA 
3204 010072 000205 PTYS: RTS RS RETURN 
$558 
2228 010074 005737 012264 SAVDEV: TST RECORD gARE WE RECORDING DEVICES FOUND? 
2229 010100 001016 BNE 20$ :BR IF NO AND EXIT 
2230 010102 005737 012266 TST FRSTD 31S THIS THE VERY FIRST DEV RECOGNIZED? 
2231 010106 001011 BNE 10$ 7BR IF NO 
2232 010110 052737 000001 012266 BIS #1,FRSTD ZSET FIRST DEV FOUND SW 
2233 010116 113737 012250 012270 MOVB DEV, FRSTDV [SAVE FIRST DEVICE FOUND 
2234 010124 012737 000001 012302 MOV #1, DEVFND SET SuITCH = DEVICE FOUND 
2235 010132 005237 012272 10$: INC DEVCT :COUNT THE DEV 
2236 010136 000205 20$: RTS RS 
2237 
22 
$i0 
2241 010140 005737 012272 DONTSV: TST DEVCT zHAVE WE FOUND ANY DEV YET? 
2242 010144 001403 BEQ 30$ :BR IF NO 
2243 010146 052737 000001 012264 BIS #1,RECORD ZTURN OFF DEV RECORDING 
010154 000205 30$: RTS R5 


SEQ 48 


K 4 


SEQ 49 
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3i8 «SBTTL MODULE 3.0.4 TST4 DST ACCESS TEST 

2250 : 

¢ 31 ; MODULE 3.0.4 DEVICE STATUS TABLE (DST) ACCESS TEST 

225 ; THIS TEST CHECKS THE ABILITY TO ACCESS ALL BYTES OF THE 

2254 ; DST IN ALL AREAS OF MEMORY. THE OBJ JECTIVE IS TO CHECK LOADING 

2658 : OF THE DXBA FROM THE SPW DST BASE, AND COMMAND (CUCR) 

2257 ; A VALID I8M DEVICE FROM TST3 1s CHECKED. THEN A BASE ADDR 

2258 ; IS GENERATED FOR THE DST. EACH BYTE OF THE DST IS THEN LOADED 

3259 ; WITH ITS OFFSET FROM THE DST BASE. 

2261 ; A SPW ENTRY FOR THE VALID IBM DEVICE IS GENERATED WITH AP- 

2262 : PROPRIATE DST BASE AND ZERO IMMEDIATE STATUS TO ASSURE A DST 

226 ; ACCESS. AN ISS SEQUENCE IS DONE WITH THE VALID DEV AND 

2264 : EVERY POSSIBLE IBM COMMAND THEREBY ACCESSING EVERY LOCATION 

2265 ; IN THE DST. AFTER THE ISS, THE STATUS WILL EQUAL THE C 

2266 ; OR AND ERROR IS FLAGGED. 

2267 : 

$569 

2270 010156 004537 007050 TST4: JSR RS, INIT ZINITIALIZE THE SOFTWARE 

2271 010162 004737 007100 JSR PCDXRES 3 INITIALIZE THE HARDWARE 

2272 010166 005737 012302 TST DEVFND D0 We HAVE A DEVICE? 

2273 010172 001006 BNE 10$ :BR IF YES 

2274 010174 004537 005372 JSR RS, PRINT 3TEST 3 MUST BE RUN SUCCESSFULLY FIRST 

2275 010200 012535 ~WORD  T4MSG [TO FIND AND IGM DEVICE # 

2276 010202 000000 -WORD 0 ZAND ASSURE GOOD SPW ACCESS CAPABILITY 

22 0. 000137 010614 JMP ENDS ‘ABORT TEST 

2278 010210 005037 012250 10$: CLR DEV [CLEAN UP CURRENT DEV NO. 

2279 010214 113737 01 2270 012250 MOVB = FRSTDV, DEV 3GET THE VALID DEV 

2280 010222 004537 JSR R5,PTY GEN Z ASSIGN PARITY TO IT 

2281 010226 012250 -WORD DEV 

2282 010230 004537 010620 JSR RS BUF AD :GET A BUFFER OF 256 BYTES 

2283 010234 100400 . WORD 100400 

2284 010236 012737 000400 012232 MOV #400, BUF SZE :SET BUFFER SIZE 

2285 010244 004737 007030 JSR PC ,BUFCLR ZCLEAR THE BUFFER 

2286 010250 005000 LooP4: CLR RO- SSTART WITH CMD = 0 

2287 010252 013701 012230 MOV BUFBAS,R 3GET THE DST BASE 

2288 010256 110021 10$: Move RO, thse. 3SET CMD IN DST 

2289 010260 005200 INC T CMD 

2290 010262 022700 000377 CMP #255. .RO TARE ALL STATUS = TO CMD? 

2291 010266 103373 BHIS 10$ 300 256 BYTES 

2292 010270 005000 CLR 

2293 010272 013700 01 2250 MOV 2GET DEVICE 

2294 010276 042700 177400 BIC Hi 7#400, RO 

2295 010302 006300 ASL zMAKE IT A WORD OFFSET 

2296 010304 017701 00155 MOV SDxgsa. 1 3GET THE SPW BASE 

2297 010310 042701 00177 BIC ait? :CLEAN IT UP 

2298 010314 050100 BIS sADD DEV TO OFFSET 

2299 010316 005737 012172 TST er :MM IN USE? 

2300 010322 001412 BEQ 15$ 7BR IF NO 

2301 010524 013701 012236 MOV EACUR,R1 [GET EXT ADDR BITS 

2302 010330 000301 SWAB ORT ZPOSITION FOR USE IN PAR 

2303 010332 006201 ASR R1 
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By 


Sess 
Soooooooooooo 


ah 
R 
&- 
~ 


WWW 


POPMEPOPENEPNoPonofonoforory 
us ke ed ed cd ed ed ed eed 


OONAOULSWN—O 


ror 
WW 


010452 
010460 
01 


oo oo 
= tot 
RR S 
== of 
nm oo 


RRGAR ISL 


oS 
Ww 
w 
AN 
N“N 
N 


052777 
77 


RAL 


004537 


Sw 
NO ON 


soscesesces ce 

SUSVVESENUN SN 
: Syosssuss 2S 
esssesssesss 


001352 


012252 


007030 
010620 


012242 


001410 


ESSING TEST 
6: 


54 


001326 
001320 


sa hp 


15$: 


LOP4: 


5$: 
7$: 


10$: 


20S: 


END4: 


ULE 3.0.4 


L 4 
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TST4 DST ACCESS TEST 
R1, @AKIPARS sUSE PARS TO GET TO SPW TABLE 


#46000,R0 :SET SPW ADDR TO USE PARS 
#120006, RO 
BAPH,R1 ZSET PHY BUFFER BASE 
R i IMMED 'S Tus = 0 
R17, (RO) ‘SET UP Hal 
‘START WITH CMD = 0 
RS, PTYGEN ‘GET COMMAND PARITY 
EACUR,@DXCSA = ; SET _ UP EXT ADDR BITS 
DEV, a@DXCAA ZSET DEVICE TO CUAR 
EV ,@DXROA :PUT DEV ADDR ON BUS OUT 
#ADRO, @DXMOA 
#HLDO!SELO,aDXMOA gSELECT & HOLD OUT 
WADRO,@DXMOA =; DROP ADDR OUT 
DEV, @DXMOA [DROP DEV FROM BUS 
CMD. @DXMOA :COMMAND TO BUS 
#CMDO,@DXMOA =: D GuT 
CMD , @DXMOA [CLR CMD FROM BUS 
#CMDO,@DXMOA © DROP COMMAND OUT 
#4,CMD 31S IT A SENSE COMMAND? 
@DXOSA SSTATUS FORCED TO ZERO ON SENSE CMD 
10$ BR IF 76000 
7$ [REPORT ERR 
CHD .@DXOSA 31S STATUS PCUAL DEVICE? 
RS -ERRR ERROR IN DST ACCESS 
ERR6 [MESSAGE ADDR 
#SRVO,@DXMOA RELIEVE STATUS 
#SRVO, aDXMOA 
PC ,DXRES CLEAR THE DX 
CMD [TRY NEXT COMMAND 
CMD ‘DONE IF BACK TO ZERO 
LOP4 BR TO D0. NEXT CMD 
PC ,BUFCLR [CLEAR OLD BUFFER 
RS ,BUF AD 7GET NEXT BUFFER BASE 
1 :D1D WE GET A BUFFER? 
END4 7BR IF NO,END TEST 
BFBAPH [1S BUFFER BASE 0°S? 
20$ 7BR IF YES, THE DX DOES NOT DO A 
[DST FETCH IF SPW ENTRY IS ALL ZEROS 
[DO NEXT BUFFER 


LOOP4 
ENDTST SEND OF TEST 4 
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2350 
2351 
235 
235 
2354 


2374 010630 005037 012236 


2376 010634 012702 016000 
2377 010640 042700 100000 


2378 010644 060002 

2379 010646 162700 000001 
2380 010652 040002 

2381 010654 010237 012230 
2382 01 010237 012242 
2383 

2384 01 


gos73t 012172 
2386 000006 
Seas 010676 005037 172354 


01 
2390 010706 010237 172354 
2391 010712 042737 F444 « 


0 000001 
2394 010734 253708 012230 
2396 010742 010037 012234 
000550 


23 

2399 

2400 

2401 

2402 010750 060037 Oieeae 

2403 010754 042737 000077 012230 
2404 010762 060037 01244 

2405 010766 042737 012242 





a 9 se gE NE Ian pememnenieee 
SEQ 1 
MACY11 30A(1052) O7=JUN-82 16:29 PAGE 52 

BASE ADDRESS GENERATOR MODULE 


»SBTTL _BASE ADDRESS GENERATOR MODULE 
MODULE 3.2 BASE ADDRESS GENERATOR 


yy MODULE SETS UP THE ST@RTING ADDRESS FOR DX BUFFERS 
HAS RESPONSIB yd FOR ESTABLISHING exreere ADDR 
ars, BUFFER ae BUFFER SIZE, AND HAS CONTROL OF 
THE MEMORY MGT. REGISTERS. KIPAR6 IS ALWAYS USED 
TO ACCESS THE OXBUFFERS IF MEM MGT. IS ENABLED. 
THIS MODULE IS CALLED AS FOLLOWS: 
JSR RS ,BUF AD 
R P 


WO 
RETURN HERE WITH R1=0 MEANS BUFFER ALLOCATED 
=1 MEANS NO 


MEMORY LEFT 
PARM IS DEFINED AS FOLLOWS: 
ait 15=1 INITIALIZE TO di H BUFFER LOCATION 
BITS 14:0 BASE ADDR 7 BUFFER MUST BE DIVISABLE BY 
UFAD: MOV (R5)+,R0 3GET THE PASSED PARAMETER 
CLR R1 sRESET “OUT OF MEMORY’’ INDICATOR 
TST RO sCHECK FOR oe et SW 
BPL NEXTB sBRANCH IF NOT TO INITIALIZE 
CLR EACUR sSTART INIT PROCESS BY CLEARING 
sTHE EA BITS 
MOV #ENDALL ,R2 GET VIRTUAL END OF PROGRAM ADDR 
BIC #100000,R0 :CLEAR HIGH BIT OF PARAM 
ADD RO,R2 OFFSET yy: E PROGRAM 
SUB #1,RO0 ; aioe A MASK 
BIC RO.R2 O MAKE BASE DIVISABLE BY PROPER AMT. 
MOV R2.BUFBAS SAVE VIRTUAL BUF BAS 
MOV R2,BFBAPH ; SAVE PHYSICAL BUFFER BASE, SAME AS VIRT 
AT THIS POINT. 
TST KT HIS KT IN USE? 
BEQ ENDB sBRANCH IF NO TO END OF MODULE 
MOV #6,R3 seer re COUNT 
CLR @4KIPAR6 0 IN TO erate KIPAR6 
10$: ASR of 3 SHIFT abbress RIGHT 6 PLACES 
$08 R3,10$ :TO ~! 


GN WITH BAR 
MOV aF*KIPARG 3SET UP PAR6 TO REFERENCE FIRST BUFFER 
BIC #177700,BUFBAS CLEAR UP VIRTUAL BUFFER ADDR 

Bis #140000 ,BUFBAS EBUFFER ACCESS 1S ALWAYS THRU PARG 


MO Y TURN ON 
ENDB: ADD BUFBAS.RO :FIND TOP OF CURRENT BUFFER 
MOV RO, BUFMAK zSAVE VIRT END OF BUFFER 
BR ENDB1 SDONE WITH INITIALIZATION 
: COME HERE IF NEXT BUFFER ADDR IS WANTED 
NEXTB: ADD nae BUFBAS zINCR TO NEXT BUFFER SPACE 
BIC BUFBAS 3CLEAR POSSIBLE LOW ORDER BITS 
ADD 0,BFBAPH [STEP PHYSICAL AD 
BIC #7) BEBAPH SCLEAR POSSIBLE LOW ORDER BITS 


| 
| 
15=0 GET NEXT BUFFER LOCATION 
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2406 010774 103007 

2407 010776 062737 000010 013636 
2408 004 025737 012236 012224 
2409 012 101125 

2410 014 005737 012172 

2411 020 001511 

2412 022 032737 020000 012230 
2413 030 001417 

2414 032 062737 000200 172354 
2415 040 023737 172354 012170 
2416 046 103402 

2417 050 005201 

2418 052 0005 

2419 054 0427 177700 012230 
2420 062 052737 012230 


140000 
013703 012230 


a ah a sts ns a) ts ot tt ot tt eS 


Nm 

& 

_ 
SOSCSSOSCOSOOoOCoOCooOoOoOoOooOooOooOoooooooO 
ee a ee ee ee ee ee ee ee ee ed ed ed ed 


070 
242 074 06000 
242 076 032703 020000 
2424 102 001322 
2425 104 0103357 012234 
2426 110 013703 012242 
2427 114 060003 
2428 116 023737 012236 012224 
2429 124 001006 
2430 126 020337 012226 
2431 132 103055 
2432 134 020327 000004 
2433 140 10145 
2434 142 013703 012242 
2435 146 060003 
2436 150 103677 
2437 
2438 
2439 011152 005737 012236 
2440 011156 001010 
2441 011160 020337 012164 
2442 011164 101405 
2445 011166 023737 012242 012166 
2444 011174 103001 
2445 011176 000664 
2446 011200 012777 014000 000654 
2447 011206 005037 012304 
2448 011212 020327 014000 
2449 011216 101411 
2450 011220 023727 012242 016000 
2451 011226 10 
2452 011230 012777 016000 000624 
2453 011236 005237 012304 
2454 011242 1 
2455 0112464 013737 012230 012234 
2456 011252 060037 012234 
2457 011256 023737 012234 012164 
2458 011264 101401 
2459 011266 005201 
2460 011270 000205 


MACY11 30A(1052) 
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2$ 2BR IF 
#10,EACUR 3 STEP EXTENDED Ap0R BITS 
ee HAVE THE EXT ADR BITS GONE TOO HIGH? 
0s sBR IF YES TO SET ALL DONE SW AND EXIT 
21S MEM MNG IN USE? 


20$ 2BR 
#20000,BUFBAS WAS THERE A —— TO ACCESS NEXT PAR? 
10$ BR IF NO CARRY 


#200,Q#KIPAR6 =; TAKE A_4K STEP 
patna eaten seeatn oe TOO HIGH 


‘AN 
R1 + 1 “ALL DONE*’ SWITCH 


END 3E 
#177700, BUFBAS ;START BUFFER BASE OVER 
Sirens. A thers sACCESS THR PAR6 


#26000, R3 DIT IT CARRY ACROSS A 
IS YES. GO BACK AND GET A BETTER ADDR 

RS BUFMAX SAVE ove OF BUFFER ADD 
BFBAPH,R3 :GET PHYSICAL BUF BASE 
RO,R3 ZADD BUFFER SIZE TO GET BUF TOP 
EACUR,EABITS ZARE WE WE IN THE TOP PHYSICAL BANK? 
R3,PHYMAX ARE UE OVER THE TOP OF MEM? 
30$ :BR IF YES, SET D W 
R3,46 ‘WAS THERE A CARRY OUT OF TOP BANK? 
30$ ;BR_IF YES, WE MUST BE DONE 
BFBAPH,R3 :GET PHYSICAL BUFFER BASE 

# [FIND TOP OF PHY BUFFER 
NEXTB 3BR IF CARRY OVER 32k BND 

AND GO BACK AND GET Ayr QUFFER WHICH DOESN'T 
:STRADD EL A 32K BOUNDAR 

EACUR ARE WE IN THE FIRST BANK? 
R3,MSIZE ZARE WE oll THE LOADER AREA? 
BFBAPH, MMAX 71S BUFFER ABOVE LOADERS? 
3$ :BRANCH IF 
NEXTB 760 BACK AND GET A BETTER BUFFER ADDR 
#SPW,a@DXOSA :SET UP SPW AD 
SPWMVD [CLEAR SPW BASE ADDR MOVED SWITCH 
R3, SPW :1S TOP OF BUFFER IN 


15 2BR OK 
Or BAPH -#SPu+2000° ;1S BUFFER BASE IN TT? 


5 tM eal apxosa’ sMOV THE SPW 
_ SET SPW soos oie ALTERNATE SWITCH 


Sale 36 ND O 

BUPBAS, BUFMAX 3START TO GET BUF MAX IMUM 
SADD IN BUFFER SIZE 

SUrRAX, MSIZE SEE IF ote RE OUT OF MEMORY 


Rl SET OUT OF MEMORY SWITCH 
RS sRETURN FROM MODULE 


—_— 
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2461 

24 

246 

2464 

2465 

2466 

2467 

2468 

2469 

2470 

2471 

2472 

2473 

2474 

2475 

2476 

2477 

2478 011272 032777 

2479 011300 001401 

2480 011302 

2481 

sees 011304 013737 

2483 011312 005046 

2484 011314 012746 

2485 011320 2 

2486 011322 

2487 011322 005737 

2488 011326 001407 

2489 011330 032777 

2490 011336 001413 

2491 011340 013705 

2492 011344 000205 

2493 011346 032777 

2494 011354 001404 

2495 011356 013737 

2496 011364 sang 

2497 011 00503 

2498 011372 010537 

2499 AFH | 012537 

2500 011402 012537 

2501 011406 032777 

2502 011414 she 

250 911238 00013 

2504 011422 004537 

co Be 

2507 011432 16273 

2508 piety 004537 

2509 011444 012254 

2510 011446 1 1 

2511 011450 004537 

salg 011454 013322 

$31 011456 1 
514 011460 004537 

2515 011464 012256 

2516 011466 100001 


So ooo 

= 
S rs 
asx 


$= 
3 
No 


3 
x 
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167640 


012216 


167602 


167564 


012220 


167524 


012254 


MACY11 is noes 
MODULE 


FTP oe Se Se Ge Se Se Ge Ge Se Se Se Se Ge Ss Se Se 


5$: 


648: 


10$: 


15$: 
20$: 


258: 











PAY | DULE 3.3 
E 3.3 


CALLED AS FOLLOWS: 
JSR oe ERRR 
- WORD 


S Bh eee ee 


O7-JUN-82 16:29 PAGE 54 
REPORT ERRORS 


ERROR REPORTING 


REPORT ERRORS 


«WORD 
RETURN CUNLESS LOCK ON ERROR FUNCTION OVERRIDES RETURN) 
. EQUALS ERROR IDENTIFICATION NUMBER 

Y EQUALS ADDR OF UNIQUE ERROR MESSAGE” 


THIS MODULE FORMATS AND PRINTS ERROR MESSAGES AND HANDLES 
ERROR OPTIONS SUCH AS INHIBIT ERROR MESSAGES, SHORT ERROR 
REPORT, SCOPE LOOP, HALT ON ERROR, ETC. 


BIT #SW15 ,aSWR 
5$ 


BEQ 
HALT 

MOV CTESTN, ERR 
CLR (SP) 

MOV #64$,-(SP) 
RTI 

TST LOCK 

BEQ 10$ 

BIT #SW14,aSuR 
BEQ 15$ 

MOV LOCKAD RS 
RTS 

BIT #SW14,aSwR 
BEQ 

MOV CTESTN,LOCK 
BR 20$ 

CLR LO 

MOV PC 
MOV CRS) ERD 


MOV (RS) +, ERRMS 
BIT #SW13,aSWR 
25$ 


97$ 
JSR RS PRINT 
ERPC 


- WORD 

SUB #4, ERRPC 
JSR R5 PRINT 
«WORD RRPC 
-WORD 100001 


1 
JSR R5,PRINT 
«WORD ERRID 
WORD 100001 


sHALT_ON ERROR ON? 
2BR IF NO 
3SW15 ON AND ERROR OCCURRED. 


3SET_ERROR oe be ath SW 
3 PUT NEW PS ON STACK 

T NEW Pe ON STACK 
3:POP NEW PC AND PS 


sARE WE LOCKED ON ERROR? 
¢SCOPE LOOP Sw ON? 

iGET THE LOOP ADDR 
:SCOPE LOOP ON? 

iSET LOCKED ON ERR Sw 


3 TURN OF A ae Sw 
sSAVE ERR on 

2 SAVE ERROR ID 

SAVE ERROR MESSAGE ADDR 
:INMIBIT PRINT ON? 


F NO 
zs TERMINATE MODULE 
SPRINT ERRPC 
ADDR OF MESSAGE 
NO SPECIAL PRINT CONTROLS 
BACKUP ADDR TO CORRECT VALUE 
SPRINT THE PC NUMBER ITSSELF 


NO CRLF, CONVERT TO ASCII 
{PRINT ERROR NUMBER ON SAME LINE 


: INHIBIT CRLF 
PRINT THE OCT 





SEQ i 


Cn SS 


¢ 5 
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2517 011470 013737 012260 011502 MoV ERRMS , 30$ IGET MESSAGE POINTER 
2518 911476 004537 005372 JSR RS,PRINT SPRINT THE UNIQUE MESSAGE 
2519 01150 30$: .WORD 0 SFILLED FROM TWO LINES UP 
2520 011504 909000 «WORD 0 [NO SPECIAL CONTROLS 

2521 011506 032777 010000 167424 BIT #SW12,aSWR ZSHORT ERROR REPORT ON? 
25 3 011514 001145 BNE 95$ 7BR IF YES, WE'RE DONE 
23¢ 011516 004537 005372 JSR R5,PRINT ‘PRINT TEST NO. 

2526 011522 013336 «WORD ERTN 

525 011524 000000 WORD 

2526 011526 004537 005372 JSR RS, PRINT ZPRINT THE OCTAL TEST NO. 
2507 011532 012206 ~WORD CTESTN 

2528 011534 100001 “WORD 100001 

3529 011536 022737 000005 012256 CMP #5, ERRID :1S IT ERROR #5? 

2530 011544 001531 BEQ 95$ 7BR IF YES, REST OF STUFF IS MEANINGLESS 
2531 011546 004537 005372 JSR R5,PRINT [PRINT VIRT ADDR 

2532 011552 013351 «WORD  ERADR 

2533 011554 000000 ;WORD 

2534 011556 004537 005372 JSR RS, PRINT ZPRINT VIRT ADDR OCTAL 
2535 011562 012230 .WORD BUFBAS 

2536 011564 100001 “WORD 100001 

2537 011566 005737 012172 TST KT z1S MEM MGT IN USE? 

2538 011572 001431 BEQ 90$ : NO WE'RE DONE 

2539 011574 004537 005372 JSR RS, PRINT [PRINT PHYSICAL ADDR 

2540 011600 013404 .WORD ERADPH 

2541 011602 000000 -WORD 0 

2542 011606 004537 005372 JSR RS, PRINT zPRINT PHYSICAL ADDR OCTAL 
2543 011610 012242 .WORD BFBAPH 

2544 011612 100001 “WORD 100001 

2545 011614 004537 005372 JSR R5,PRINT :PRINT EA BITS 

2546 011620 013431 ~WORD EABIT 

2547 011622 000000 “WORD 0 

2548 011694 013737 012236 012262 MOV EACUR,EAERR :GET THE EA BITS 

2549 011632 006237 01226 ASR EAERR ‘POSITION BITS 

2550 011636 006237 01226 ASR EAERR : TO BITS 1:0 

2551 011642 006237 01226 ASR EAERR 

255¢ 011646 004537 00537 JSR R5,PRINT sPRINT THE OCTAL EA BITS 
2553 011652 012262 -WORD EAERR 

2554 011654 1 “WORD 100001 

2555 011656 023727 012256 000003 90$: CMP ERRID,#3 z1S IT ERROR NO. 3? 
2556 011664 001010 BNE 93$ :BR IF NO 

2557 011666 006537 005372 JSR R5,PRINT [PRINT DATA ADDRESS ASCII 
2558 011672 013452 .WORD DATAA 

2559 011674 000000 “WORD 0 

2560 011676 004537 005372 JSR R5S,PRINT ZPRINT DATA ADDR OCT 

2561 011702 012240 «WORD DATAD 

2562 011704 100001 “WORD 100001 

2563 011706 023727 012256 000004 93$: CMP ERRID, #4 z1S IT ERROR #4? 

2564 011714 001004 BNE 94$ :BR IF NO 

2565 011716 113737 012250 012300 MOVB DEV, EXP [GET DEV # 

2566 011724 000416 BR $ 

2567 011726 02372 012256 000006 94$: CMP ERRID,#6 31S IT ERROR #6? 

2568 011734 001035 BNE 95$ :BR IF NO 

2569 011736 122737 000004 012252 CMPB 0 so#4, CMD SWAS IT A SENSE CMD? 

2570 011744 001003 BNE 98$ :BR IF NO 

2571 011746 005037 012300 CLR EXP ZEXPECTED STATUS IS ZERO FOR SENSE 
2572 011752 000403 BR 96$ 
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2573 0117 

2574 011762 117737 po08 
2575 011770 004537 005372 
2576 011774 013575 

2577 011776 000000 

2578 012000 004537 005372 
2579 012004 012276 

2580 012006 Mg 

2581 012010 004537 005372 
Sone 012014 013607 

2583 012016 1 

2584 012020 004537 005372 
2585 012024 012300 

2586 012026 100001 

2587 012030 004537 005372 
2588 012034 013625 


MD-11-CZDXJ=C DX11-8 GbOnE SS ING TEST 


54 113737 Oi eeoe 012300 98$: 
74 012276 968: 


95$: 


2590 BiSnee peer 001566 000042 97S: 


99$: 


MACY11 os iene 
MODULE 3.3 


MOVB 


event tank 16:29 PAGE 56 


RRORS 


CMD EXP 
@DX0SA,ACTU 
RS, PRINT 
ACTUMS 


RS PRINT 
A 


0 
#SENDAD ,a#42 
99$ 


RS 


sGET EXPECTED CMD 
GET ACTUAL STATUS 
PRINT ACTUAL MESSAGE 


sPRINT STATUS OCTAL 
sPRINT EXPECTED STATUS 
sPRINT EXPECTED OCTAL 
SPACE THE PAPER 


UNDER ACT? 

:BR IF NO 

HALT ON ACT ERROR 
RETURN FROM MODULE 





ee 


SEQ 56. 
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2595 ; 

2596 : 

2597 ; DX ACCESS TABLES 

$296 

2600 012054 000000 DXDSA: .WORD 0 :DEVICE STATUS REG ADDR. 

2601 01 000000 DXCAA: .WORD 0 :C AND ADDR REG ADDR 

2602 01 000000 DXCSA: .WORD 0 :CONTROL UNIT STATUS REG ADDR 

2603 012062 000000 DXOSA: .WORD 0 [OFFSET AND STATUS REG ADDR. 

2604 012064 000000 DXBAA: .WORD 0 ZBUS ADDRESS REG A 

2605 012 000000 DXBCA: .WORD 0 :BYTE COUNT REG A 

2606 012070 000000 DXMOA: .WORD 0 MAINTENANCE OUT REG ADDR. 

2607 012072 000000 DXMIA: .WORD 0 SMAINTENANCE IN REG ADDR 

2608 012074 000000 DXCBA: .WORD 0 [CONTROL BITS REG ADDR 

2609 012076 000000 DXNDA: .WORD 0 :NPR DATA REG ADDR 

2610 012100 000000 DXESA: .WORD 0 SEXTRA SIGNALS REG A 

2611 012102 000000 Dx .WORD 0 ‘MAINTENANCE OUT Gurr ERED REG ADDR 

2612 012104 000000 DXESTA: .WORD 0 ZEXTRA EXTRA SIGNALS REG ADDR. 

2613 ; REGS TO BE OUTPUT TO Dx 

2614 012106 000000 DXDSO: .WORD 0 Ipeviee STATUS REG OUT 

2615 012110 000000 DXCAO: .WORD 0 : D AND ADDR REG 

2616 012112 000000 DXCSO: .WORD 0 :CONTROL UNIT STATUS REG OUT 

2617 012114 DXOSO: .WORD 0 ZOFFSET AND STATUS REG OUT 

2618 012116 000000 DXBAO: .WORD 0 [BUS ADDR REG. OUT 

2619 012120 000000 DXMOO: .WORD 0 :MAINT OUT REG ADDR 

2620 012122 600000 DXBCO: .WORD 0 
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MACY11 — O7-JUN-82 16:29 PAGE 58 
MODULE 3.3 REPORT ERRORS 


DEFAULT PARAMETER TABLE 


-WORD 1 STARTING TEST NUMBER 
-WORD 176200 DEFAULT UNIBUS yee | ADDR 
-WORD 300 DEFAULT VECTOR A 

«WORD 4 DEFAULT DX PRIORITY LEVEL 


' 
— eee eee —— | 


peter cen mnt aoreenianemenarnremmerenon cnet — : 
| ‘ SEQ 58 
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2631 3 

soe 3 

26 3 INPUT PARAMETER LIMITS TABLE 

2634 3 

2635 

2636 012134 

2637 012134 000001 LTESTN: 1 sLOWEST POSSIBLE TEST NUMBER 
2638 012136 HTESTN: 4 sHIGHEST POSSIBLE TEST NUMBER 
2639 012140 L 160000 SLOWEST POSSIBLE UNIBUS ADDRESS 
2640 012142 177756 HUBA: 177756 sHIGHEST POSSIBLE UNIBUS ADDRESS 
2641 012144 0 LVEC: 40 sLOWEST POSSIBLE DX VECTOR ADDRESS 
2642 012146 000776 HVEC: 776 s HIGHEST POSSIBLE DX VECTOR ADDRESS 
2645 012150 000000 LPRIOR: 0 sLOWEST POSSIBLE FOR LEVEL 

2644 012152 000006 HPRIOR: 6 ‘HIGHEST POSSIBLE FOR LEVEL 
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2645 ; 
2646 3 
667 : ACTIVE PARAMETER TABLE 
2649 ; THIS TABLE CONTAINS CONFIGURATION PARAMETER CURRENTLY 
2650 ; IN USE. 
2651 012154 : | 
2652 012154 000000 ATESTN: .WORD 0 ZSTARTING TEST NO. 
2653 012156 000000 AUBA: .WORD 0 [DX UNIBUS BASE ADDR. 
2654 012160 000000 AVECT: .WORD 0 [DX VECTOR ADDRESS | 
2655 012162 000000 APRIOR: .WORD 0 [0X PRIORITY LEVEL 
2656 012164 000000 MSIZE: .WORD 0 [ADDR OF LAST WORD OF MEM, NOT INCLUDING LOADERS, KT OFF 
2657 012166 000000 MMAX: . WORD 0 [LAST WORD OF KT OFF | 
2658 012170 000000 EASIZE: .WORD 0 ;LOWEST INVALID p SETTING OF ype 
2659 012172 000000 KT: <WORD 0 720 NO KT IN USE =1 KT IN | 
2660 012174 000000 FIRSTP: .WORD 0 [0 IF FIRST PASS, iF NOT ‘FiRst PASS 
2661 012176 177564 TPS: WORD 177564 :TTY PRINTER STATUS REG ADDR | 
2662 012200 177566 TPB:  <.WORD 177566 tty PRINTER BUFFER REG ADDR 
2663 012202 177560 TKS: WORD 177560 Y KEYBOARD STATUS REG ADDR | 
2664 012204 177562 TDB: WORD 177562 cry KEYBOARD BUFFER. 
2665 012206 000000 CTESTN: .WORD 0 ;CURRENT TEST NUMBER 
2666 012210 000000 PARMV: .WORD 0 F PARMS NOT VALID, 1 IF THEY ARE VALID 
2667 012212 000001 COUNT: .WORD 1 : ITERATION COUNT VCONS TAN T | 
2668 012214 000000 CNT: WORD 0 S ITERATION VARIABLE 
2669 012216 000000 ERR: WORD 0 31F ERROR DETECTED CONTAINS TN | 
2670 012220 000000 LOCK: .WORD 0 *SW=TN IF wie ERR DETECTED 
2671 012222 000000 “WORD 0 SLOCK ON ERROR ADDR 
72 012224 000000 EABITS: .WORD 0 SHIGHEST VALID SETTING OF ADDR 17 16 
2673 012226 000000 PHYMAX: .WORD 0 ;LOWEST INVALID PHYSICAL ADDR, LOW 16 BITS 
74 012230 000000 BUFBAS: .WORD 0 START OF CURRENT WORKING BUFFER, VIRTUAL 
2675 012232 000000 BUFSZE: .WORD 0 Ste OF CURRENT BUFFER IN OCT BYT 
2676 012234 000000 BUFMAX: .WORD 0 zMAX VIRTUAL ADDR FOR THIS KT SETTING 
2677 012236 000000 EACUR: .WORD 0 CURRENT SETTING OF EA BITS 
2678 012240 000000 DATAD: .WORD 0 sCURRENT DATA AD 
2679 012242 000000 BFBAPH: .WORD 0 : CURRENT PHYSICAL BUFFER BASE ADDR 
012244 000000 BFADPH: .WORD 0 sCURRENT PHYSICAL DATA ADDR 
2681 012246 000000 SPWPHY: :WORD 0 PHYSICAL ADDR OF SPW START | 
012250 000000 DEV “WORD 0 [CURRENT IBM DEVICE NO. 
2683 012252 000400 -WORD 400 [CURRENT IBM COMMAND WITH PARITY BIT 
012254 000000 ERRPC: .WORD 0 [PC WHERE ERROR WAS DETECTED 
2685 012256 000000 ERRID: .WORD 0 TERR 
012260 000000 “WORD 0 ZADDR OF Oni ove ERROR MESSAGE | 
2687 012262 000000 “WORD 0 SEABITS ON ERR 
2688 012264 000000 RECORD: .WORD 0 SSWITCH TO CONTROL DEV REC {RECORDING | 
012266 000000 “WORD 0 SFIRST DEVICE RECOGNIZED 
2690 012270 000000 FRSTDV: .WORD 0 SFIRST DEVICE RECOGNIZED NUMBER 
2691 012272 000000 V “WORD 0 TFIRST DEVICE GROUP C 
2692 012274 000000 DEVMSS: .WORD 0 “DEVICE MESSAGE PRINTED Sy 
269 012876 000000 U: .WORD 0 ZACTUAL BATA | 
2694 O12 000000 EXP “WORD 0 sEXPECTED DAT 
2695 012302 000000 DEVFND: .WORD 0 “= 1 IF DEVICE EVER RECOGNIZED 
2696 012304 000000 SPWMVD: :WORD 0 7= 1 IF SPw TAPLE IN ALTERNATE LOCATION 


icbsiieiidintammieaiiadiaeidicn 
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2697 eNLIST BIN 
ERR1: .ASCIZ /FAST NPR DATA ERROR/ 


SEQ 60 


698 $15306 
699 01 33 
2700 012322 
2701 012330 
2702 012332 ERR2: .ASCIZ /NO DX INTERRUPT/ 
2703 012340 
sioe 012346 
2706 012352 ERR3: .ASCIZ /DX ADDRESSING ERROR, DATA XFER/ 
2707 012360 
2708 012366 
2709 012374 
2710 012402 
2711 012410 
2712 012411 ERR4: .ASCIZ /SPW ACCESS, ADDR ERROR/ 
2713 012416 
2714 012424 
2715 012432 
2716 012440 ERRS:  .ASCIZ /NO IBM DEV ADR RECOGNIZED. CHECK A20 MODULE/ 
2717 + 012446 
2718 012454 
2719 012462 
2720 012470 
2721 012476 
2722 012504 
2723 012512 
2724 012514 ERR6: .ASCIZ /DST ACCESS ERROR/ 
2725 012522 
2726 012530 
2727 012535 T4MSG: .ASCIZ /TST3 MUST BE RUN FIRST FOR TST 4 TO WORK/ 
2728 012542 
2729 012550 
2730 012556 
2731 012564 
2732 012572 
2733 012 
2734 012 HEADER: .ASCII ‘MD=-11-DZDXJC 0X11B MEMORY ADDRESSING TEST'<15><12> 
2735 p1¢61% 
2736 012622 
2737 0126 
2738 012636 
2739 012644 
2740 31sb08 
2741 012660 
2742 012662 eASCII ‘TYPE: <D>, DEFAULT PARAMETERS'<15><12> 
2743 012670 
2744 012676 
2745 012704 
2746 012712 
2747 012720 
2748 012721 ASCII ° <P>, PREVIOUS PARAMETERS'<15><12> 
2749 012726 
2750 0127 
2751 012742 
2752 012750 
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2753 012754 ASCII ° <S>, SELECT PARAMETERS '<15><12> 
2754 012762 
2755 012770 
2756 012776 
2757 013004 
2758 013005 eASCIZ ° <N>, START AT THIS TEST NO.'<15><12> 
2759 013012 
2760 013020 
2761 013026 
a7 0130 
2763 013042 
2764 013044 _ INVM: eASCIZ ‘INVALID ENTRY 
2765 013052 
2766 013060 
2767 013062 INVPRM: .ASCIZ ‘NEED MORE PARMS' 
2768 013070 
2769 013076 
2770 013102 PROMPT: .ASCIZ 'D,P.S.N? ° 
2771 + 013110 
2772 013114 TESTN: .ASCIZ ‘STARTING TEST NO. ° 
2773 ~=013122 
2774 013130 
2775 =013136 
2776 013137 BASEA: .ASCIZ ‘BASE ADDRESS ° 
2777 =013144 
2778 013152 
2779 013155 VECTA: .ASCIZ ‘VECTOR ADDRESS ° 
2780 013162 
2781 013170 
2782 013175 PRILV eASCIZ ‘DX PRIORITY LEVEL ° 
2783 013202 
2784 013210 
2785 013216 
2786 013220 SETSW: .ASCIZ ‘SET SWITCHES ' 
2787 013226 
2788 013234 
2789 013236 BELL: .ASCIZ <207> ‘END PASS’ 
2790 013244 
2791 013250 BADP: eASCIZ ‘INPUT PARAMETER OUTSIDE LIMITS' 
2792 013256 

793 013264 

794 


797 013307 ERPC: .ASCIZ ‘ERROR PC: * 


2799 AEs ERNO: .ASCIZ ° ERR NO.: ' 

2800 0133 

2801 013336 ERTN: .ASCIZ ‘TEST NO.: ° 

$e0e 013344 

2803 013351 ERADR: .ASCIZ ‘VIRT ADDR OF BUFFER BASE: ° 
2804 013356 

2805 013364 

2806 013372 

2807 013400 

2808 013404 ERADPH: .ASCIZ ‘PHY ADDR OF BUFFER: ° 


SEQ 62 
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2809 013412 
2810 013420 
2811 013426 
3812 013431 EABIT: .ASCIZ ‘EA BITS IN OCT: ° | 
2813 013436 
2814 013444 
2815 013452 DATAA: .ASCIZ ‘'VIRT ADDR OF ACCESS ERROR: ' 
2816 013460 
2817 013466 
2818 013474 
2819 013502 
2820 013506 DEVMS: .ASCIZ ‘1ST IBM DEV RCGNZD. OCTAL: ' 
2821 013514 
2822 013522 
2823 013530 
2824 013536 
2825 013544 DEVCMS: .ASCIZ ‘SIZE OF 1ST DEV GROUP: ° 
2826 013552 
5827 013560 | 
2828 013566 
2829 013574 
2830 013575 ACTUMS: .ASCIZ ‘ACTUAL: ° 
2831 013602 
2832 013607 EXPMS: .ASCIZ ° EXPECTED: ° 
2833 013614 
2834 013622 
2835 013625 CRLF1: .ASCIZ / /<15><12> 
2836 .LIST BIN 
2837 013632 EVEN 
2838 : INBUF must BE ON AN EVEN WORD BOUNDARY 
2839 013632 012 INBUF: .BYTE 12 EYBOARD INPUT BUFFER 
2840 014000 -=14000 
2841 014000 SPW: i START OF STATIONARY | SPW TABLE USED ONLY TO 
284 FIELD UNEXPECTED ERRORS. 
2843 014000 000002 «WORD 2 STA TUS OF UNIT CHECK WITH NO DST ACCESS 
2 014002 000002 <WORD 2 : STATUS OF UNIT CHECK WITH NO DST ACCESS | 
2845 014004 000002 «WORD 2 ZSTATUS OF UNIT CHECK WITH NO DST ACCESS 
14006 000002 .WORD 2 ZSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2847 014010 000002 .WORD 2 ZSTATUS OF UNIT CHECK WITH NO DST ACCESS 
014012 000002 .WORD 2 ZSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2849 014014 00000 «WORD 2 ZSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2850 014016 00000 -WORD 2 ZSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2851 020 000002 .WORD 2 ZSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2852 014022 000002 «WORD 2 SSTATUS OF UNIT C WITH NO DST ACCESS 
2853 014024 000002 «WORD 2 ZSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2854 014026 000002 «WORD 2 ZSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2855 014030 00000 ~WORD 2 ZSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2856 014032 00000 -WORD 2 ZSTATUS OF UNIT CHECK WITH NO DST ACCESS | 
2857 014034 00000 -WORD 2 gSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2858 014036 00000 .WORD 2 ZSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2859 014040 00000 «WORD 2 ZSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2860 014042 00000 -WORD 2 ZSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2861 014044 00000 .WORD 2 SSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2862 014046 00000 .WORD 2 ZSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2863 014050 00000 WORD 3 ZSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2864 014052 00000 WORD SSTATUS OF UNIT CHECK WITH NO DST ACCESS | 
| 
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2865 014054 00000 WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS | 
2866 014056 00000 WORD 2 3STATUS OF UNIT CHECK WITH NO DST ACCESS 
2867 014060 00000 WORD 2 3STATUS OF UNIT CHECK WITH NO DST ACCESS | 
014062 00000 -WORD 3STATUS OF UNIT CHECK WITH NO DST ACCESS 
2869 014064 00000 WORD 3STATUS OF UNIT CHECK WITH NO DST ACCESS 
2870 014066 00000 WORD 2 3STATUS OF UNIT CHECK WITH NO DST ACCESS 
2871 014070 00000 WORD 2 3STATUS OF UNIT CHECK WITH NO DST ACCESS 
2872 014072 00000 WORD 2 3STATUS OF UNIT CHECK WITH NO DST ACCESS 
2873 014074 000002 WORD 2 3STATUS OF UNIT CHECK WITH NO DST ACCESS 
2874 014076 000002 -WORD 2 3STATUS OF UNIT CHECK WITH NO DST ACCESS 
2875 014100 00000 -WORD 2 3STATUS OF UNIT CHECK WITH NO DST ACCESS 
2876 014102 00000 WORD 2 3STATUS OF UNIT CHECK WITH NO DST ACCESS 
2877 014104 00000 WORD 2 3STATUS OF UNIT CHECK WITH NO DST ACCESS 
2878 014106 00000 -WORD 2 3STATUS OF UNIT CHECK WITH NO DST ACCESS 
2879 014110 000002 “WORD 2 3STATUS OF UNIT CHECK WITH NO DST ACCESS 
2880 014112 00000 -WORD 2 3STATUS OF UNIT CHECK WITH NO DST ACCESS 
2881 014114 00000 WORD 2 3STATUS OF UNIT CHECK WITH NO DST ACCESS 
2882 014116 000002 -WORD 2 3STATUS OF UNIT CHECK WITH NO DST ACCESS 
2883 014120 000002 WORD 2 3STATUS OF UNIT CHECK WITH NO DST ACCESS 
2884 014122 000002 WORD 2 3STATUS OF UNIT CHECK WITH NO DST ACCESS 
2885 014124 000002 -WORD 2 3STATUS OF UNIT CHECK WITH NO DST ACCESS 
2886 014126 000002 WORD 2 3STATUS OF UNIT CHECK WITH NO DST ACCESS 
2887 014130 000002 -WORD 2 3STATUS OF UNIT CHECK WITH NO DST ACCES 
2888 014132 000002 WORD 2 3STATUS OF UNIT CHECK WITH NO DST ACCESS 
2889 014134 000002 WORD 2 3STATUS OF UNIT CHECK WITH NO DST ACCES 
2890 014136 000002 WORD 2 3STATUS OF UNIT CHECK WITH NO DST ACCESS 
2891 014140 000002 -WORD 2 3STATUS OF UNIT CHECK WITH NO DST ACCESS 
2892 014142 000002 WORD 2 3STATUS OF UNIT CHECK WITH NO DST ACCESS 
2893 014144 000002 WORD 2 3STATUS OF UNIT CHECK WITH NO DST ACCESS 
289% 014146 000002 “WORD 2 3STATUS OF UNIT CHECK WITH NO DST ACCESS 
2895 014150 000002 WORD 2 3STATUS OF UNIT CHECK WITH NO DST ACC 
28% 014152 000002 -WORD 2 3STATUS OF UNIT CHECK WITH NO DST ACCESS 
2897 014154 000002 -WORD 2 3STATUS OF UNIT CHECK WITH NO DST ACCES 
2898 014156 000002 WORD 2 3STATUS OF UNIT CHECK WITH NO DST ACCESS 
2899 014160 000002 -WORD 2 3STATUS OF UNIT CHECK WITH NO DST ACCESS 
2900 014162 000002 WORD 2 3STATUS OF UNIT CHECK WITH NO DST ACCESS 
2901 014164 000002 -WORD 2 3STATUS OF UNIT CHECK WITH NO DST ACCESS 
2902 014166 000002 -WORD 2 3STATUS OF UNIT CHECK WITH NO DST ACCESS 
2903 014170 000002 WORD 2 3STATUS OF UNIT CHECK WITH NO DST ACCESS 
2904 014172 000002 WORD 2 3STATUS OF UNIT CHECK WITH NO DST ACCESS 
2905 014174 000002 WORD 2 3STATUS OF UNIT CHECK WITH NO DST ACCESS 
2906 014176 000002 WORD 2 3STATUS OF UNIT CHECK WITH NO DST ACCESS 
2907 014200 000002 WORD 2 3STATUS OF UNIT CHECK WITH NO DST A 
2908 014202 000002 WORD 2 3STATUS OF UNIT CHECK WITH NO DST ACCESS 
2909 014204 000002 -WORD 2 3STATUS OF UNIT CHECK WITH NO DST ACCESS 
2910 014206 000002 -WORD 2 3STATUS OF UNIT CHECK WITH NO DST ACCESS 
2911 014210 000002 WORD 2 3STATUS OF UNIT CHECK WITH NO DST ACCESS 
2912 014212 00000 “WORD 2 3STATUS OF UNIT CHECK WITH NO DST ACCESS 
2913 014214 00000 WORD 2 3STATUS OF UNIT CHECK WITH NO DST ACCESS 
2914 014216 000002 WORD 2 3STATUS OF UNIT CHECK WITH NO DST ACCESS 
2915 014220 000002 -WORD 2 3STATUS OF UNIT CHECK WITH NO DST ACCESS 
2916 014222 00000 WORD 2 3STATUS OF UNIT CHECK WITH NO DST ACCESS 
2917 014224 00000 WORD 2 3STATUS OF UNIT CHECK WITH NO DST ACCESS 
2918 014226 000002 -WORD 2 3STATUS OF UNIT CHECK WITH NO DST ACCESS 
2919 014230 000002 -WORD 2 3STATUS OF UNIT CHECK WITH NO DST ACCESS 
2920 014232 000002 WORD 2 3STATUS OF UNIT CHECK WITH NO DST ACCESS 
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2921 014234 00000 WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
g9¢¢ 014256 00000 WORD 2 ZSTATUS OF UNIT CHECK WITH NO DST ACCESS | 
g9¢5 014240 00000 “WORD 3STATUS OF UNIT CHECK WITH NO DST ACCESS 
2924 014242 00000 ;WORD ZSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2925 014244 00000 :WORD 2 ZSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2926 014246 00000 “WORD 2 3STATUS OF UNIT CHECK WITH NO DST ACCESS 
2927 014250 00000 -WORD 2 ZSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2928 014252 00000 :WORD 2 ZSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2929 014254 00000 “WORD 2 ZSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2930 014256 00000 “WORD 2 ZSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2931 014260 00000 :WORD 2 :STATUS OF UNIT CHECK WITH NO DST ACCESS 
2932 014262 00000 “WORD 2 :STATUS OF UNIT CHECK WITH NO DST ACCESS 
2933 014264 000002 “WORD 2 ZSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2934 014266 000002 “WORD 2 ZSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2935 014270 00000 sWORD 2 ZSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2936 014272 00000 “WORD 2 ZSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2937 014274 000002 “WORD 2 ZSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2938 014276 000002 “WORD 2 ZSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2939 014300 000002 “WORD 2 ZSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2940 014302 000002 “WORD 2 :STATUS OF UNIT CHECK WITH NO DST ACCESS 
2941 014304 000002 -WORD 2 ZSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2942 014306 000002 “WORD 2 ZSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2943 014310 000002 “WORD 2 ZSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2944 014312 000002 “WORD 2 :STATUS OF UNIT CHECK WITH NO DST ACCESS 
2945 014314 000002 “WORD 2 ZSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2946 014316 000002 :WORD 2 ZSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2947 014320 000002 “WORD 2 ZSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2948 014322 000002 “WORD 2 ZSTATUS OF UNIT CHECK WITH NO OST ACCESS 
2949 014324 000002 “WORD 2 ZSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2950 014326 000002 “WORD 2 ZSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2951 014330 000002 “WORD 2 ZSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2952 014332 000002 “WORD 2 ZSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2953 014334 000002 :WORD 2 ZSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2954 014336 000002 “WORD 2 ZSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2955 014340 000002 “WORD 2 ZSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2956 014342 000002 WORD 2 ZSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2957 014344 000002 “WORD 2 ZSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2958 014346 000002 -WORD 2 ZSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2959 014350 000002 “WORD 2 :STATUS OF UNIT CHECK WITH NO DST ACCESS 
2960 014352 000002 :WORD 2 ZSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2961 014354 000002 :WORD 2 ZSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2962 014356 000002 “WORD 2 ZSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2963 014360 000002 “WORD 2 ZSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2964 014362 000002 “WORD 2 ZSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2965 014364 000002 -WORD 2 3STATUS OF UNIT CHECK WITH NO DST ACCESS 
2966 014366 000002 “WORD 2 ZSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2967 014370 00000 ;WORD 2 ZSTATUS OF UNIT CHECK WITH NO DST ACCES 
2968 014372 00000 :WORD 2 ZSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2969 014374 000002 “WORD 2 ZSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2970 014376 000002 WORD 2 ZSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2971 014400 00000 ; WORD ZSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2972 014402 00000 “WORD 2 ZSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2973 014404 00000 “WORD 2 ZSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2974 014406 00000 “WORD 2 :STATUS OF UNIT CHECK WITH NO DST ACCESS 
2975 014410 000002 “WORD 2 :STATUS OF UNIT CHECK WITH NO DST ACCESS 
2976 014412 000002 “WORD 2 ;STATUS OF UNIT CHECK WITH NO DST ACCESS | 
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2977 014414 00000 «WORD $ sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2978 014416 00000 WORD sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2979 014420 00000. WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2980 014422 00000 WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2981 014424 00000 WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2982 014426 00000. WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2983 0144 00000. WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2984 014432 00000 «WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2985 014434 000002 «WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2986 0144 000002 WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2987 014440 000002 WOR 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2988 014442 000002 «WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2989 014444 000002 . 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2990 014446 000002 -WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2991 014450 000002 ° 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2992 014452 00000 WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2993 014454 00000 -WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2994 014456 00000 «WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2995 014460 00000 WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2996 014462 000002 WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2997 014464 000002 -WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2998 66 000002 D 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
2999 014470 000002 - WORD § sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
3000 014472 000002 «WORD sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
3001 014474 000002 . 2 sSTATUS OF UNIT CHECK WITH NO DST AC“ESS 
3002 014476 000002 WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
300 000002 «WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
3004 014502 000002 WORD 2 3 US OF UNIT CHECK WITH NO DST ACCESS 
3005 014504 000002 WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
3006 014506 000002 WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCE 

3007 014510 000002 WORD 2 3 US OF UNIT CHECK WITH NO DST ACCESS 
3008 014512 000002 eWORD 2 : US OF UNIT CHECK WITH NO DST ACCE 

3009 014514 000002 WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
3010 014516 000002 WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
3011 014520 000002 WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
3012 014522 000002 WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
3013 014524 000002 WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
3014 014526 000002 WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
3015 0145 000002 WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
3016 014532 000002 WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
3017 01 000002 WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
3018 014536 000002 WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
3019 014540 000002 WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
3020 014542 000002 WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
3021 014544 000002 -WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
a56 014546 000002 WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
3023 014550 000002 -WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
3024 014552 000002 WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
3025 014554 000002 WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
3026 014556 000002 WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
3027 014560 000002 - WORD § sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
3028 014562 000002 - WORD sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
3029 014564 00000. WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
3030 014566 00000. : 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
3031 014570 000002 -WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
3032 014572 000002 Wi 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
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3033 014574 00000 «WORD sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
014576 00000 - WORD sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
5 014 00000 » WORD zSTATUS UNIT CHECK WITH NO DST ACCESS 
014602 00000 » WORD sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
37 014604 00000 - WORD § sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
3038 014606 00000 » WORD sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
3039 014610 00000 - WORD § sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
3040 014612 00000, » WORD sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
3041 014614 00000, WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
30h6 014616 00000 -WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
soe7 0146 00000 - WORD § sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
014622 00000 «WORD ; S UNIT CHECK WITH NO DST ACCES 
3045 014624 00000 WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
3046 014626 00000 «WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
3047 0146 00000. eWORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
soc8 014632 00000 WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
9 be t94 00000 «WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
3050 0146 00000 «WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
3051 014640 00000 «WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
sees 014642 00000 WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
3053 014644 00000. WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
3054 014646 00000 -WORD 2 sSTATUS OF UNIT CK WITH NO DST ACCESS 
3055 014650 000002 «WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
3056 014652 000002 «WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
3057 014654 00000 WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
3058 014656 00000 WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
44 014660 00000 WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
014662 00000 «WORD 2 ; US OF UNIT CK WITH NO DST ACCESS 
3061 014664 000002 WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
sp0¢ 014666 00000. -WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
3063 014670 00000, WORD 2 sSTATUS OF UNIT CK WITH NO DST ACCESS 
3064 014672 000002 WORD 2 : US OF UNIT CHECK WITH NO DST ACCESS 
3065 014674 00000 «WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
3066 014676 00000 WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
? 014700 00000 WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
014702 00000 «WORD 2 : S UNIT CHECK WITH NO DST ACCESS 
3069 014704 00000. ~WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
70 014706 000002 - WORD § sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
71 014710 00000 «WORD sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
72 014712 00000 - WORD § sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
73 014714 00000 «WORD sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
74 014716 00000 «WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
75 014720 00000 WORD § sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
76 014722 00000 «WORD sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
77 014724 00000 «WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
78 014726 00000 WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCES 
3079 014730 00000. «WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
3080 014732 00000 «WORD sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
1 014734 000002 «WORD sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
Bpah 000002 «WORD sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
14740 «WORD sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
014742 «WORD 3 US OF UNIT C WITH NO DST ACCESS 
5 014744 «WORD ; US OF UNIT C WITH NO DST ACCESS 
014746 «WORD sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
7? 014750 00000 WORD § sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
3088 014752 000002 «WORD sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
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014754 «WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
«WORD § sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
«WORD sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
«WORD 2 sSTATUS OF UNIT CHECK WITH NC DST ACCESS 
WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCES 
WORD 2 sSTA_US OF UNIT CHECK WITH NO DST ACCESS 
WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 
WORD 2 sSTATUS OF UNIT CHECK WITH NO DST ACCESS 


TT: sSTART OF STATIONARY TUMBLE TABLE 
ENDALL : 





CZDXJC.P11 
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MMMM MUI 
MIMI 
~—NWEUANDOSO 


MN) =n 
pe iy tee eee 


ACTU or8e76 
ACTUMS 01357 
ADRO = 000 
AR 012154 
I 012162 
ATESTN 012154 
012156 
AVECT oieiss 
P 013250 
BASEA 013137 
LL 013236 
BFADPH 012244 
BFBAPH 012242 
BITO = 000001 
BITOO = 000001 
B1TO1 = 000002 
BITO2 = 
BITOS = 000010 
BIT04 = 000020 
BITOS = 000040 
BIT06 = 000100 
B1T07 = 000200 
BITO8 = 000400 
BITO9 = 001000 
BIT1 = 000002 
BIT10 = 002000 
BIT11 = 004000 
BIT12 = 010000 
BIT13 = 020000 
BIT14 = 040000 
B1T15 = 100000 
BIT2 = 000004 
BITS = 000010 
BIT4 = 000020 
BITS = 000040 
BIT6 = 000100 
BIT? = 000200 
BIT8 = 000400 
BIT9 = 001000 
= 000014 
010620 
0122 
007030 
012234 
oesae 
005224 
104406 
012252 
002000 
012214 
012212 
000015 
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2405* 


2341 


2392 


2285 


2324 


2426 


23708 
2394 


2340 


2329 
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CRLF1 013625 190% 2588 28354 
CTESTN $1¢298 36* 739 756* 757) 2482 2495 
DATAA 01345 $328 8154 
DATAD 012240 055* 071 2077* 2082* 2083 2561 
DDISP = 177570 ro 667 720 
Vv 012250 143* 2145 2146* 147, 2149" = 2153 
278* 2279* 2281 293 2314 2315 
vc 013544 76 tad 
DEVCT 012272 8 775 2136* 2187 2235* 2241 
DEVFND 012302 2234* 2272 26954 
DEVMS 013506 £66 28204 
VMSS 012274 733* 761 777* =§=2692# 
DISPLA 001142 6674 720* 728* 
DISPRE 000174 6248 72 
= 000200 6104 1936 2013 2078 
DONTSV 010140 2177 22414 
DPAR = 012124 26254 
DPRIOR 012132 822 840 999 26294 
DSWR_ = 177570 4818 666 719 
DTESTN 012124 819 837 966 
DUBA_ 012126 820 838 977 = - 26 274 
DVECT 012130 821 839 988 
DXBAA 012064 1915*  2060* 26044 
DXBAO 3 012116 26184 
DXBCA 012066 1954*  2605# 
OxBCO )§3=— 012122 26204 
DXCAA 012056 2154* 2314% 26014 
DXCAO 012110 26154 
DXCBA 012074 2022 2157 = 2159 2608 # 
DXCSA 012060 Mt} 1936* 1938 1959"  2013* 2014s 
DXCSO 012112 6164 
DXDSA 012054 908 26004 
DXDSO 012106 26144 
XESA 012100 1937* 1965* 2012" 2079% 26104 
DXESIA 012104 26124 
xGO 006706 916 1953# 2061 
DXMIA 012072 26074 
DXMOA 012070 1953* 1961* 1962 1963* 1964"  2155* 
168* 2174" 2175* 2315* 2316* 2317s 
2335* 26 
DXMOBA 012102 26114 
DXMOO 012120 1913* 1929 1939 1941* 1953 2058s 
DXNDA 012076 26094 
DXOSA 012062 2018* 2021* 2150* 2169 2296 2326 
DxXOSO §3012114 26178 
DXRES 007100 1903 = 2012# §=— 2025 2047, «2137S 2.178 
EABIT 013431 2546 28124 
EABITS 01S5$e 1378* = 1399* 1400* 1401* 1402" 2408 
EACUR 0122 1914 2057s 2151 2301 2315 = 2374s 
EAERR 012262 2548* 2549% 2550" 2551% 2553  2687# 
EASIZE 012170 1377* §=61389* §=61390* 2415 26584 
EMTVEC= 000030 570# 
ENDALL 016000 2376 31004 
ENDB 010734 2385 Sita" 
ENDB1 011270 2397 418 2454 2458 24604 


2527 
26784 


154 
319 


26914 


2015* 
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26654 


Mr 
wn 
own 
Waly, 


2016* 


2164 


26824 


2057* 


2452* 


2428 


2169 


2078* 


2164* 


23218 


2574 


2439 


2179* 


2080* 


26034 


2548 


2180 


2151* 


26778 


SEQ 69° 


2233 


2313+ 


2167* 
2334* 
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ENDPRM 002270 816 9164 

ENDTST 001410 7484 861949 2091 2194 2349 

ENDT1 70 19454 

END1 001576 785 7918 

END4 010614 2277 2344 23498 

EOP 001452 7614 

ERADPH 013404 2540 28084 

ERADR 013351 2532 28034 

ERNO 013322 2512 27998 

ERPC 013307 2505 27978 

ERR 012216 738* 2004*  2482* 26694 

ERRID 012256 2499* 2515 2529 2555 2563 2567 26854 

ERRMS 012260 2500* 2517 26864 

ERRPC 012254 2498* 2507* 2509 26844 

ERRR 011272 1931 1971 2074 2171 2190 2331 24784 

ERRVEC= 000004 5634 717 718* 729* 1430 1431 1435* 1440 
1505* 1506+ 

ERR1 012306 1933 269 

ERR2 012332 1973 27024 

ERRS 012352 2076 270 

ERR4 012411 2173 27128 

ERRS 012440 2193 27164 

ERR6 012514 2333 27248 

ERTN 013336 2524 28014 

EXP 012300 2565* 2571% 2573 2585 26944 

EXPMS 013607 258? 2832e 

FIRSTP 012174 732* 915* 26604 

FRSTD 012266 2135* 230 2232* 26894 

FRSTDV 012270 769 = 2233" = 2279'S 26 90# 

GETPRM 001600 734 8144 

GNS = Stenee YJ 623 1831 1832 1833 1834 1836 1838 1839 

GO $01 356 7364 760 


SEQ 70 


1469* 1474 1478 1495* 


1841 
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KIPARS= 172352 606" 23048 
KIPARG= 172354 6074 2387" 2390" 26148 2415 
KIPAR7= 172356 6084 
IPDRO= 172300 5 
KIPDR1= 172302 5918 
KIPDR2= 172304 5928 
KIPORS= 172 59 
KIPDR4= 172310 5948 
KIPDRS= 172312 5954 
KIPDR6= 172314 5968 
KIPDR7= 172316 5978 
T 012172 778 «= 1366* += 1385" =2299 © 2384 = 2410 = 2537 = 2659" 
F = 000012 474@ 1701 1707 
Lock 012220 737% 2687 2495" 2497% 2670" 
LOCKAD 012222 2005" 2491 26718 
LOOP? 506 1910# 1948 
LOOP2 007230 20534 20 
LOOPS 007516 21438 2186 
LooP4 010250 S868 2348 
LOP2 00725 057# 2084 
LOP3 007552 2150# 2181 
LOP4 010 23118 ©2339 
LPAR 012134 26368 
LPRIOR 012150 1566 26434 
LTESTN 012136 1545 26378 
UBA 012140 1552 26394 
LVEC 012144 1559 26418 
X 012166 1367" 2443 26578 
C = 000250 5798 
MSIZE 012164 1368" 1371 1376* 2641 2657 26564 
NEXTB 010750 2373 2402 = 2424 «= 2436 2445 
PARMV 012210 B26 84453" «= B9B Ge 2666" 
PHYMAX 012226 1391* 1392 13932 1394" 1395" 13968 1397% 1398" 2430 26734 
PIRQ = 177772 4808 
PIRQVE= 2 5744 
PRILV 013175 993 2782" 
PRINT 0053 765 768 (771 (724 (781 829 867 883 900 95 959 970 ~~ 981 
992 1572 1596# 2276 2504 2508 2511 2514 2518 2523 2526 2531 2534 
2539 2542 «2545 +39 2552, «2557 2560 )=s «2575S 2578 «= «2581S «2584 2S s«587 
PROMPT 013102 946 27708 
PRO = 000000 4978 
PRI = 000040 4988 
PR2 = 000100 4998 
PR3 = 000140 5008 
PRS = 000940 3028 
= 
PRE = 000800 5034 
PR? = 000340 5048 
PS = = -‘177776 4778 = 478 
PSw = (177776 4788 
PTYGEN 010036 2152-22114 = 2280-~—S—s«2311 
PTY2 010042 geike | 2218 
PTY3 010050 2215 22178 
01 220 22058 
PTYS 010072 2222 4 oe 
PWRVEC= 000024 569# 713% 714% 18678 1868* 18578 1863" 1875" 1876s 
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RDCHR = 104407 
RDLIN = 104410 
T = 104411 
RECORD oi eete 
RESTAR 001 
RESVEC= 000010 
SAVDEV 010074 
SELO = 020000 
SETSW 013220 
SIZE 004224 
SosI 000004 
SPW 014000 
S 012304 
SPWPHY 012246 
S = 001000 
SRO = 177572 
SR1 = 177574 
an = 177576 
a = 172516 
STACK = 001100 
TART 001164 
STKLMT= 177774 
001140 
SWREG 000176 
SwO = 000001 
$woO = 000001 
$w01 = 000002 
ae = 000004 
sw0O3 = 000010 
$w04 = 000020 
SwoS = 000040 
SWw06 = 000100 
SwO7 = 000200 
Swo8 = 000400 
Swo9 = 001000 
Swi = 000002 
$Ww10 = 002000 
SW11 = 004000 
SW12 = 010000 
SW13 = 020000 
$Swi4 = 040000 
$w15 = 100000 
SW2 = 000004 
SW3 = 000010 
SW4 == 000020 
SWS = 000040 
SW6 = 000100 
SW7 = 000200 
= 000400 
= 001000 
T = 000014 
T pige0e 
TESTN 013114 
TKS 012202 
TK = 


Cy 
amuIn—Oor 
—O & 
Nu— 

3 


Foren Nm 
opuzesgesey 
wM—Ooo— 
eh ea 22s 

——nhy—n 


5834 


VLVaVaLleegessee 


MAMMA MUI 
COO 2 2 WW 


MACY11 30A(1052) 
CROSS REFERENCE TABLE == USER SYMBOLS 


AN ert] 


NO. Co 


a 


MMMM 


Moronononony 
SUN O 


H 6 
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2317 

2450 2452 28414 
2335 

1484* 2393+ 


727 754 1086 1125 1180* 
1148 


2478 


SEQ 72 | 
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TPB 012200 
TPS 012176 
TPVEC = 


TRAPVE= 0000 
a pave)? 


Awo 
Rar 


$333 

“nea S8g>5 
peseeeseease 
A} Swank 


2 
88333 


s sss 
ek ed td od et IHS 


ww” 
De | 
oa 
eg 
_ 
oO 
Sssssssss 
ROVSAFSARSALIAVE 


ane 
Fes 
ane, 
sss 
=uSk 
NES 


S3E88888 


eA met at 
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SEQ 74 | 


SLSTAD 905220 1367-1368 )3=— («1369 «Ss: 1509 «15178 
SLSTBK 005222 1386 §«=6.:'1388* »3=—«s« 1389'—'s«a1391/=2Cté'ié‘«‘*1399'2=Cté:é‘«zS50e~=Ss«d:518 
SMAIL = eeeeee Y 731 1641 
SMAP 1446s 1450" 14528 1475 1685 
SMAPRG 0046 144 14544 
SMMOUT 005 1477-14894 
SMNEW 004052 1150 12954 
SMSWR 004 1147, 12934 
SNOMAP 004712 1451 14598 
SNULL 001154 6724 1659 1707 
SOCNT 006170 1740* 1769* 17824 
006172 1735 1739% 1746 17678 1758% 17844 | 
SPASS 001100 6478 
SPOWER 006444 1878 18854 
SPWRAD 9064 32 18804 | 
SPWRON 00627 71318478 = 1875 
006426 18784 
006344 1857 18634 
SQUES 001160 676 1201 1272 1289 1348 1351 # 1707 
SRDCHR 003462 12148 1839 
SRDDEC= teeeee Y 1842 | 
SRDLIN 003552 1237# 1840 
SRDOCT 004064 13124 ©1841 | 
$RDSZ = 000010 12304 
$R2A = teeene Y 1842 
SSAVRE= teneee YJ 1842 | 
SSAVR6 2 1856* 1864 1865 1866* 18844 
SSETUP= 000114 7024 710 711 713 1 1084 1089 1090 1120 1297 
$SIZE 00451 1365 1382 14214 
SSIZEX 005146 1486 1488 15034 
$STOP 004670 1445* 1448 14534 1481 
$STUP = 177777 7020 
SSVPC = 65¢ 637 
$SWR = 46 4644 676 1881 
$TKB 001146 6694 1040 1060 1071 +1101 41129 1156 1678 1685 1707 
STKCNT 00260 10414 1055* 1090 1107* 1221 1223 
STKINT 002620 1020 1055# 1081 1142 
STKQEN= 00262 1045@ 1115 1226 | 
STKQIN 002 1042 1056* 1057 1113% 11148 1115 1117% 
Tk 002 104 1057 1224 12258 1226 1228 
STKQSR 002610 10444 1056 1117 1228 | 
$TKS 001144 1868" 1040 = 1061" = 1097 §= 1099s 1105* «= 1127, s«1143® = 1153 s«41165*® =«=«118S*® «1676 = «(1683 | 
STKSRV 002670 1058 10714 | 
001152 6718 1696" 1707 | 
STPFLG 001157 675@ 1635 1707 
$TPS 001150 670# 1692 1707 
STRAP 006174 711 18044 | 
coe itaFh 18238 18350 18334 18348 1835¢ 1836 18374 1838 1839 18408 18418 18420 
= j 
STRPAD 006246 1813 18308 
STSTNM 001102 6484 | 
STTYIN 004006 1239 1240 1252 1270 1284 12884 
STYPBN= teeeee 1835 
STYPDS= teeeee Y 1835 | 
| 
| 
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STYPE 005444 
STYPEC 005614 


MD-11-CZDXJ=C DX11-8 yey ae te TEST 


$XON = 000021 
SOFILL 006171 
° = 016000 


07=JUN- 


=_ —) —) —) 4) = 2 

Sexssssess F ee 

SOEASENSASS oa 
S & 


MACY11 30A(1052) 
CROSS REFERENCE TABLE == USER SYMBOLS 


1831 
66 


K 6 
O7=JUN-82 16:29 _— 77 


1670 16754 

17054 

1707 

17834 

6334 6354 6374 6384 6454 679 
1290 12974 §©1351 1707 1859 1883 


708 
28374 


1040 
28404 


10444 


1045 


SEQ 75 





CZ0XJC.P11 


CKSWR 4534 
COMMEN 4 
ENDCOM #4 
RROR 4694 
ESCAPE if 
GETPRI \é 
GETSWR #4 
T 14 
NEWTST 16 
14 
PUSH 14 
REPORT le 
SCOPE 4704 
SETPRI 1 
SETTRA 18234 
TUP lf 
SKIP 4 
SLASH 4 
SPACE 5754 
STARS a 
1845 
SWRSU 14 
TRMTRP 18234 
TYPBIN fe 
TYPDEC 14 
TY # 
TY ie 
TYPOCS 4 
TYPOCT 14 
TYPTXT 14 
SSCMRE 6394 
SSCMTM 6394 
SSESCA 4 
SSNEWT 1 
SSSET 18234 


5754@ 1148 


1832 1833 









L 6 


MD-11-CZDXJ=C DX11-8 spOme SING TEST MACY11 30A(1052) O7=JUN-82 16: me — 79 
07-JUN-82 16:26 


CROSS REFERENCE TABLE == MACRO 


1031 1340 1613 1868 1869 
1314 1596 1849 1855 
748 1217 1955 1999 = 2483 
1834 1836 1838 1839 1840 1841 


641 679 1039 1120 1135 1206 1230 1300 


1834 1836 1838 1839 1840 1841 














1407 


1620 


1710 1798 


Mm 6 pee no. as 


SEQ 77 
MD=11=CZDXJ=C DX11-8 ney ae TEST MACY11 30A(1052) O7=JUN-82 16:29 7 80 
CZDXJC.P11 07-JUN-82 16:26 CROSS REFERENCE TABLE == MACRO NAME 
« SRAND 4 
- SRODE 14 
- $RDOC ie 4534 1298 
- SREAD # 453# 1037 
~$R2AZ 18 
- SSAVE le | 
-$SB20 #4 
-$S820 # 
-SSCOP if 
-$SIZE 14 453# 1405 
» SSUPR 4 
~ STRAP # 453# 1796 
-STYPB 4 
-STYPD lf 
-STYPE 4 453# 1618 
-STYPO is 453# 1708 
Sti 2 


- ABS. 016000 000 


ERRORS DETECTED: 0 
CZDXJC,CZDXJC/SOL/CRF /NL: TOC=SYSMAC.C5,CZDXJC.P11 
RUN-TIME: 14 12 .8 Ny 


RUN-TIME RATIO: 54/28=1 
CORE USED: 33K (65 PAGES) 


ES 


